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ABSTRACT 



THIS PROGRAM COLLECTS STATISTICAL INFORMATION 

PERTAINING TO THE DATA RELIABILITY OF THE 
TA11/TU60 WHEN RUN FOR EXTENDED PERIODS 
OF TIME ® IT USES A NUMBER OF DIFFERENT 
PARAMETERS CONTROLLING THE DATA PATTERNS, 
THE NUMBER OF BYTES PEN BLOCK IRECDRD) AND 
THE NUMBER OF HLOC^S PtR FILE « 

2, REQUIREMENTS 



a, I EQUIPMENT 



PDP-11 COMPUTER WITH OK WITHOUT HARDWARE SWITCH REGISTER 
WITH CONSOLE TELETYPE ^ AND A TAH CASSETTE 

2,2 STORAGE 



THIS PROGRAM REQUIRES APPROX, m STORAGE @ 
2 ? 3 PRELIMINARY PROGRAMS 



MAINDEC-U-DZTAA 

MAINDEC-ll^DITAB 
MAINDEC-U^DZTAC 
MAINDEC-it-DZTAD 



3 f LOADING PROCEDURE 



USE STANDARD PROCEDURE FOR LOADING ,AB5 TAPES 

OR A CASSETTE TAPE # 

% STARTING PROCEDURE 



a f l CONTROL SWITCH SETTINGS 



SEE 5 f L 



STARTING ADDRESSES 



200 
210 



NORMAL STARTING 

SELECT DRIVECSJ 
SELECT DRIVECSJ 



ADDRESS 

BEFORE STARTING TEST 

AND ADDRESSES BEFORE STARTING TEST 



4.3 PROGRAM & OPERATOR ACTION 



1, LOAD PROGRAM INTO MEMORY C&EE SECTION 3.) 

2* LOAD A WRITE ENABLED CASSETTE IN BOTH DRIVES 

3, LOAD ADDRESS 200, 

4, SET SWITCHES ISEE SECTION 4.1) 

5 f PRESS START 9 

*** NQTE 1 IF USING THE SOFTWARE SWITCH REGISTER THE 

PROGRAM WILL TYPE "SWR=XXXXXX NEW*" AFTER TYPING 
THE NAME OF THfc PROGRAM. 



4«3 9 I DRIVE SELECTION 



STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 

SELECTION OF DRIVES "A M AND "B" TO BE TESTED® 



STARTING THE PROGRAM AT 204 OR 210 ALLOWS THE OPERATOR 

TO SELECT THE DRIVE(S) TO BE T£ST£D g 



THE PROGRAM WILL TYPE M DRIVEC5J?'\ 



EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING "A" ANU/OK 

n B n followed by a carriage return. 



4 f 3 f i f i drive selection examples 



DRIVE(S)? A,B IDRIVE^ A AND B SELECT&D 

DRIVEC33I AS IDRIVE& A AND B SELECTfcD 

DRIVE(S)? B,A IDRIVE& B AND A SELECTED 

DRIVE(S)? B IDRIVE B SELECTED 

DRIVER? SBf IDRIVE § IS IMPOSSIBLE 

DRIVE(S)? J ASK FUR DRIVE 



AM AT ai0 ALLOWS THE. OPERATOR 
TRQL AND STATUS" AND "DATA BUFFER 1 ' 
i THfe VECTOR ADDRESS AND THE 



km FOR THE DKIVE5 TO BE TESTfcD AS PEN 
DRIVEN HAVE BEEN SELECTED IT WILL ASK 



F THE CONTROL AND STATUS REGISTER CTAC5J 

$ 

L 

iTOR MUST RESPOND WITH THE DESIRED P&RAHETER 
; RETURN (WHICH IMPLIES LEAVE AS IS) « 
iMtTEW HAVE B&IH DEFINED THE PROGRAM 
:M BACK OUT AND ASH IF THEY ARt OK AT 
C QPEKATOR RESPONSES WITH A M T« OR A 
TURN" FOR "YES" ANYTHING ELSE IS A n NO% 

N EXAMPLES 



)il77502 VECTOR S 000^60 PRIORI TY®i$030$ 



BM77474 VECTOR B 0ei0d60 PR IOR I TY«0IS03«W 



5, OPERATING PROCEDURE 



5,1 OPERATIONAL SNITCH St T TINGS 



IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SNITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER, 
IF THE HARUWARt SWITCH REGISTER DOES NOT EXIST OK IF ONE DOES 
AND IT CONTAINS ALL ONtS C t TT7T73 THEN THE SUPTWAHt SWITCH 
REGISTER CLOC, lib) IS USED® 



CONTROL: 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC, 1 7b J f RUM THE T T Y • THIS CAN 8E ACCOMPLISHED BY 
DOING THE FOLLOWING? 

1) TYPE CONTROL G <*G>J THIS WILL ALLOW THE TT Y TO ENTER OAT A INTO 
LOC 176 AT SELECTED POINTS WITHIN THE PROGRAM f 

2) THE MACHINE WILL THEN TYPE I SWR»XXXXXXNEW» IXXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER * ) 

3) AFTER THE "NEW*" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TT Y • 

A) TYPE A NUMBER TO BE LOADED INTO LOC « 4 76 FOLLOWED BY A «CR>, 
(ONLY NUMBERS BETWEEN *)«■/ WILL BE ACCEPTED AND ONLY 6 NUMBERS 

WILL Bfe ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED * 

8) IF A CONTROL U <~U» IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP i. 

WITH $H<I5: J0»»0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST, 
THE SWITCH SETTINGS ARE! 

SW<15>«1. # .HALT ON ERROR 
SW<14>«i. # .L00P ON TEST 
SW<i3»«l •••INHIBIT ERROR TYPEQUTS 
SW<i0>»l.,.RING BELL ON ERROR 

5W<09>M.,.HALr AFTER NEXT "ENO-UF-TEST w TYPEOUT 
SW<08>*i t# .AT NEXT M END*OF-TAPE» (EOT) GO TO w tND*OP-T tST " 
SW<07>"1*. .PERFORM PASS AS PER SWR<1S0> 

SWR<1 t0»s*00^FQRMAT 
SWR<i :0>a01«READ ONLY 
SWR<i:0>«l0»W*IT£ ONLY 
SWR<1 S0>«ll»R£AD ONLY 



s 9 a 



SUBROUTINE ABSTRACTS 



3,2,1 SCOPI 



THIS SUBROUTINE CALL C VI A AN IUT INSTRUCTION) IS PLACED 
AT AN OPTIMUM POSITION IN THE INSTRUCTION SECTION Of THE 
"FORMAT", "READONLY" AND "WRITEUNLY " CODE « 

IF SMR<ia>si THE PROGRAM WILL LOOP THROUGH A SPECIFIC 

SEQUENCE DEPENDING ON THE TYPE OF PASS BEING P&RF ORM&Q f 
«** THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 

5,2,1,1 FORMAT PASS SCOPE LOOP 

1, SETUP FOR A WRITE 

2 WRITS- 

"J I BACKSPACE BLOCK GAP 

4, SETUP FOR A READ 

5* READ 

6, REPEAT STEPS 1-5 UNTIL "EOT" 



5.2. 1. 2 READONLY PASS SCOPE LOUP 

l # SETUP FOR READ 

2, READ 

J f CHECK FOR SYNC & DATA tRHOK 

4. 8ACK SPACE BLOCK GAP 

5, REPEAT STEPS 2«4 INDEFINITELY 

5.3. 1.3 WRITEONLY PASS SCOPE LOOP 

1, SETUP FOR WRITt 
2 WRITE 

3* REPEAT STEP £ UNTIL "EUT u 
5,2,2 TRAPCATCHER 



A ".+2" - "HALT" SEQUENCE IS RtPE AT£D FROM LOG « TU LUC, fl*> 

TO CATCH ANY UNE^P&CTED TRAP$« THUS, ANY UNEXPECTED T w AP5 WILL 
HALT AT THE DEVICE TRAP VECTOR + 2, 



5,2*3 ERROR 



THIS SUBROUTINE CAUL C VI A A EMl INSTRUCTION) IS USED TU KfcPQKT 
ALL ERRORS, CREFER TO 6.} 

5 f 2 f a TRAP 

men mm 

A NUMBER OP SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTION t 

FOLLOWING IS THE CALLS USED AND THE STARTING ADDRESS 0^ THE 
ROUTINE. 

5 f i a 4 9 I TYPE ($T YPE) 

TYPE AN ASCI2 STRING On THE TTY 
5.2.<l f 2 ROCHR (SRDCHR) 

READ A SINGLE ASCII CHARACTER t ROM THE TTY 
5 e a 9 «,i RDLINCiROLlN) 

READ AN ASCII STRING FROM THE TTY 



THE FOLLOWING SUBROUTINES ARE CALLED i§Y A 'JSR'. 



THIS ROUTINE CHANGES AN ASCII STRING TO AN OCTAL, NUMBER . 

5*2 t 6 9 2 ASKDRV 

THIS ROUTINE IS USED TU ASK THE OPERATOR WHICH DRIVE ISJ 
ARE TO BE TESTED 

5.2.6,3 ASK ADR 

THIS ROUTINE IS USED TU INPUT THE ADDRESSES OF THE "TACS" 

AND THE VECTOR TO USE . 

5 f 2 f 6 s 4 TYPERR 

THIS ROUTINE IS USED TU TYPE OUT THE "ERROR" DATA 

5,2,6,5 CSRERR 

THIS ROUTINE IS USED WHEN AN ERROR 
IS DETECTED . IT WILL EXAMINE THE 
"CONTROL AND STATUS" REGISTER TO 
DETERMINE THE TYPE OF ERROR ANU 
TAKE THE APPROPRIATE ACTION. 

5.2 9 6 8 6 SETUPW 

THIS ROUTINE IS USED TU SETUP THE 

PARAMETER 8L0CK AND THt WRITE 

BUFFER BEFORE STARTING A "wRITt" FUNCTION 

5 fi 2 ffi 6 9 r FILL 

USE TO FILL THE WRITE BUFFE* 
WITH A DATA PA T TERN s 

5 9 2 a 6,& SETUPR 

THIS ROUTINE IS USED TU SETUP THt 
PARAMETER SLOCK BEFORE DOINU A 
"READ" FUNCTION, 

5.2.6,9 SYNCK 

THIS ROUTINE IS CALLED AFTER 
PREFORMING A "READ". 
IT CHECKS THE FIRST FOUR BYTES 
OF THE DATA TO INSURE THAT THEY 
CONTAIN THE PROPER FILE AND 
BLOCK NUMBERS. 



5 9 2 e b,S0 OATCMP 

THIS ROUTINE IS USED TU CHECK I Hfc 
DATA IN THE READ BUFFEK To INSURt 
IT IS CORRECT. 

5.2.6, U CNTSFT 

THIS ROUTINE U> USEU TU 
COUNT SOFT DATA ERRORS 

5.2,6.12 CNTHRD 

THIS ROUTINE IS USED TU 
COUNT HaHD OAT A ERRORS 

5*2*6*13 SAVRGI OR SAVWEG 

ROUTINE TO SAVt ALL THfc REGISTERS 
5,2,6, la CASSETTE PRIMITIVfc 

THIS IS THE CASSETTE DKIVER 
5,2.6,15 CASINT 

CASSETTE INTERRUPT HANULER 

5®2 a 6«i6 DBCD 

CHANGES A DOUBLE LtNGTM BINARY 
NUMBER TO A DECIMAL ASLIZ STRING 

5*2*6^17 SBCD 

CHANGES A SINGLE LENGTH BINARY 
NUMBER TO A DECIMAL A3LIZ STRING. 

5,2,6,18 SUPRES 

TYPES A DECIMAL ASCII STRING 

SUPPRESSING LEADING ZE*QS, 

5 f 2 t 6,X9 T YPP 

USED TO TYPE THE ASCII STRING 
IMMEDIATELY FOLLOWING I HE CALL. 

5.2.6.20 TPORV 

TYPES THE ORIVfe TO BE TESTED 

5.2. 6. 21 EXAM 

THIS ROUTINE EXAMINES f HE 5ELECTED DRIVES 
TO INSURE THEY ARE AVAILABLE PUR TESTING , 

5.2.6.22 SB20CT 



TYPES AN OCTAL NUMBER 



6* ERRORS 



THERE ARE. A NUMBER QF tRRQRS THAT CAN OCCUR IN THIS 
PROGRAM, WHEN AN ERROR IS ENCOUNTERED THE CALL TO 
THE ERROR (ERROR) ROUTINE 1$ MAUE AND If SW«13> 13 NOT 
SET AN ERROR MESSAGE PfcRTAlNING TO THE ERROR WILL SE 
TYPED, EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWING* 

I . AN ERROR MESSAGE 

a, a data header 

3. A DATA STRING 

REFER TO THE LISTING UNDER $ER*T8 FOR THE DIFFERENT 
ERRORS THAT CAN OCCU^t 

6,1 ERROR TYPES 



THE ERRORS THAT OCCUR IN THJS RRQGRAM FALL INTO THREE 
(33 CATEGORIES DEFINED AND EXPLAINED AS FQLLOwSJ 

6.1.1 PRETEST ERROR 

THESE ERRORS MILL BE DETEC f ED BEFORE TRYING TO TtST 
THE DATA RELIABILITY OF THE T A i i /TU60 , 

6.1.2 non-fatal error 

THESE ERRORS WILL BE DUE TU W CRC" OR "DATA" FAILURES 
WHICH WILL BE REPORTED AS r HE Y OCCUR • AFTfcR REPORTING 
THE ERROR THE PROGK AM Witt CONTINUE TESTING, 

6 f l.i FATAL ERROR 

THIS TYPE UF ERROR WILL BE THE RESULT OF ANY KIND 

OF ERROR THAT CAUSES THE PROGRAM TO LOSE TRACK OF THE TAPE 

POSITION, OR THE MAXIMUM NUMBER OF DATA ERRORS HAVE 

OCCURRED, 

THIS ERROR WILL BE REPORTED WHEN IT OCCURS, TH£N THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE "ENQ*»OF- TEST " TYPEOUT, 

6,2 DATA ERRORS 



THERE ARE TWO TYPES OF DATA ERRORS 

THAT CAN OCCUR WHICH ARE 

DEFINED AND EXPLAINED AS FOLLOWS I 

6 f 2.i SOFT ERROR 



A SOFT ERROR IS BY DEFINITION ANY 
ERROR THAT OCCURS WHILE READING A 
A SOFT ERROR WILL INVOKE A REREAD 



M CRC M OR "READ DAT A w 
BLOCK OF DATA, 
OF THE BLOCK 9 



HARO ERROR 



A HARO ERROR IS DEFINED A3 ANY 

M CKC" OR "READ DATA" ERROR THAT OCCURS 

ON THE INITIAL, READ OF A BLOCK 

Of DATA AND CAN NOT BE READ 

CORRECTLY WITHIN THREE 13) RETRYS, 

6,3 ERROR RECOVERY 



6 9 3 8 i PRETEST ERROR 

WHEN THIS TYPE OF ERROR OCCURS IT WILL Bi REPORTED, THEN DEPENDING 
ON HOW THE PROGRAM WAS STARTED IT WILL ASK FOR T ME 0KIVE5 AND 
ADDRESSES FOR TESTING OR RETURN TO MONITOR. 

h«3»B NON-FATAL ERROR 

WHEN THIS TYPE OF ERRO* OCCURS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST, 

6*3.3 FATAL ERROR 

WHEN THIS TYPE OF ERRO& OCCURS IT WILL BE REPORTED 9 THE 
PROGRAM WILL AdORT THE TEST AND GO TO THE "END^OF •Tfi^T " T YPEUUT f 

7, RESTRICTIONS 



BEFORE STARTING THE PRUGR AM THt OPERATOR MUST INSURE THAT A 
CASSETTE IS LOADED AND wRITE ENABLED IN THE DRIVE(S) 
TO BE TESTED • 



S. MISCELLANEOUS 
8.1 EXECUTION TIME 



TESTING THE TAU/TU6B TO SPECIFICATION TAKES APPROXIMATELY 
2 HOURS 30 MINUTES WITH EACH D*IVE TAKING 75 MINUTES , 



8 f 2 STACK POINTER 



STACK IS INITIALLY SET TO 1100* 



a«3 



END OF TEST 



WITH ALL SWITCHES ON A "0" THE END OF TEST TYPtOUT WILL OCCUR 
WHEN TH£ PROGRAM COMPLtTES 18 TAPE PASSES FROM "8QT" TU 
"EOT" ON THE OWIVE UNDER TEST UR A FATAL ERROR OCCURS. 

8,3,1 EXAMPLE OF AN END-OF TtST TYPEUUT 

*** END-OF-TESf *** 
SOFT ERRORS*^ 
HARD gRRORSs0 
BYTES RE AD« i 47 1 488 
BYTES WRITTEN=J69000 
TAPE PASSESslS 
FlLES/PASSsii 
SLOCKa/FILEsife 

8,4 DRIVE COMPATIBILITY 



THE COMPATIBILITY BETWEEN DRIVES CAN BE TESTED BY 
DOING A "FORMA T " PASS UN ONE D*I VE AND THEN READING AT 
ON ANOTHER DRIVE. 

8,4, i DRIVE COMPATIBILITY PRUCEDURE EXAMPLE #1 



THIS EXAMPLE FORMATS ON DRIVE A ANU READS FROM DRIVE » 

®*^ 8 i 9 l 11 FORMAT" DRIVE "A* 

U PLACE A WRITE ENABLED TAPE IN DRIVE "A" 

2 S INSURE DRIVE n ® n 15 EMPTY 

3, LOAD ADDRESS Bm 

4 f SET SW09 AND SW08 FQ w 1" ALL OTHERS TO 11 0" 

5 t PRESS START 

6, PROGRAM WILL PERFOKM A "FORMAT" PASS ON DRIVE " A » 9 TYPE 
H END«OF*T£ST H STATISTICS AND HA L T 

8.4, l f 2 "READ 15 DRIVE 

1. REMOVE THE TAPE FRUM DRIVE " A " AND PLACE IT IN U*IVE "B" 

i 9 LOAD ADDRESS &m 

3 9 SET SW09, SW08, SW AND 5*00 TO A H i w ALL OTHERS 
TO A "0 W 

4 f PRESS START 

5, PROGRAM WILL PERFORM A "READONLY" PASS ON ORIVE 
"B% TYPE ^END^OF* TEST 11 STATISTICS AND HALT , 



8 f 4 9 2 DRIVE COMPAT 1BILXT Y PROCEDURE tX AMPLE $2 



THIS EXAMPLE READS KNOWN GOOD 1 APE IS) 
8 f 4,2, 1 "READ" 

1, PLACE THE KNONN 6000 TAPE(5>) IN THE DRIVECS) TO 
BE TESTED f (NOTES IT MIGHT BE WISE TO HAVE THE 
TAPE(S) WRITE LOCKfcDt) 

2, LOAD AODRESS 200 

3, SET SW08, SW07 AND SW00 TO A "1" ALL OTHERS 
TO A "0" 

4 f PRESS START 

5. PROGRAM WILL PERFORM A "READONLY" PASS AND TYPE 

w |ND-OF-TgST ,f STATISTICS ON DRIVECS) TO BE TESTEP* 

8,5 DATA FORMAT 



THE DATA FORMAT USED IN THIS PROGRAM WILL RESULT IN 
APPROXIMATELY ELEVEN CII) FILE* OF 8192 BYTES TO 8E WRITTEN 

ON TAPE f 

6,5,1 FILE STRUCTURE 

EACH FILE WILL CONSIST OF SIXTEEN 116) BLOCKS UF DATA, WITH 
EACH BLOCK CONTAINING AN UNIQUt DATA PATTERN 9 

B 9 5 9 i BLOCK STRUCTURE 

EACH BLOCK WILL HAVE AN "ID" CUDE AS THE FIRST FOUR U) 
BYTES OF DATA, THIS "ID" WILL BE THE FILE NUMBER AND 
BLOCK NUMBER AND THEIR COMPLEMENTS, THE DATA FOLLOWING 
THE "ID" IS A PATTERN THAT REPEATS ITSELF EVERY EIGHT 18) 
BYTES FOR THE LENGTH OF THE BL^CK „ 

8,5,3 BLOCK SHE AND PATTERN 



BLOCK 


BLOCK 


BLOCK 


NUMBER 


she 


PATTERN 






m m «® m m m «p» 













063 






3ia 






®b5 






146 






231 






146 






231 


I 


512 


314 






231 






063 






146 






314 






231 






063 






146 



8,5,3 CCQNTJ 



BLOCK 
NUMBER 



BLOCK 


»LUCK 


$111 

mmmmm 


PATTERN 


1024 


mmmmmmm 

m% 




mi 




004 




010 




135 3 fS 




040 




100 








17? 




277 




33? 




357 








37 5 




375 




376 


t®24 


252 




ias 




252 




125 




j t 3 




12s 








125 


12a 


000 




111 




2aa 




333 




044 




155 




ibb 




377 


1024 


000 




044 




111 




155 




222 




266 




333 




377 



CCONT.) 



BLOCK 
NUMBER 



10 



ii 







C T 7 C 




m m ««> «« 98 
©4 


iji ca tn 
000 




j 3 a 

see 




044 




^3 4. & 




HI 












J7 f 


1024 


001 




00 3 




00 7 




KIT 




037 




07 7 




Iff 




iff 




a 7 t 
<3 f 




& 7 /i 




« 7 ra 
10 




«?&0 




340 




Jlf/0 




J 13k ril 

C00 




000 


led 


001 




37© 








4 f & 




004 




373 




t h 4 Ok 
010 




JO f 




020 




35 f 




040 




& X 7 
5 J f 








£7? 




200 




17? 



8 f 5,J (CQNT.J 



BLOCK SLOCK ttuUCK 

NUMBER SU& PATTERN 

ia sia 000 

000 

000 

000 

U 377 

377 
377 
377 
377 
377 
377 
37/ 

14 Si 000 

377 
000 
377 
000 
377 

377 

15 U8 017 

360 
£07 
170 
303 
074 
341 
036 



8,6 TEST TYPEOUT 



TH£ FOLLOWING fcXAMPLfc A TYPICAL TYPkOUT ^HgRg BOTH 

DRIVES mm TESTED AND NO ERRQKg OCCURRED, 



MAINDEC»U-DZTAE*A 



DRIVE A AND DRIVE 8 WILL BE TfcSTED 





FORMAT 




DRIVE 


A 




READ 


lit* 


DRIVE 


A 




READ 


* it 


DRIVE 


A 




READ 




DRIVE 


A 




WRITE 


*** 


DRIVE 


A 




READ 


* & 3s 


DRIVE 


A 




READ 


*** 


DRIVE 


A 


*** 


READ 




DRIVE 


A 


llf * A 


READ 




DRIVE 


A 


$ $ # 


FORMAT 




DRIVE 


A 




READ 




DRIVE 


A 




READ 




DRIVE 


A 




READ 




DRIVE 


A 


& & & 






not v/sr 


4 




READ 




DRIVE 


A 




READ 




DRIVE 


A 




READ 




DRIVE 


A 




READ 


*** 


DRIVE 


k 


tit 


END-QF- 


-TEST 







SOFT ERRORS 8 ® 
HARD ERRORSs0 
8VTE5 R£AD»1476608 
8YTES WRITTEN*3702iZl9 



TAPE PASSESsiS 

FlLE3/PASSsia 

8L0CK$/riLEiil6 



**4r 


FORMAT 




DRIVE 


8 


** * 


READ 


*** 


DRIVE 


a 


*** 


READ 


*** 


DRIVE 


9 


*#* 


READ 




DRIVE 


8 




WRITE 




DRIVE 


8 




READ 




DRIVE 


8 




READ 


* * & 


DRIVE 


8 




READ 




DRIVE 


8 




READ 


*** 


DRIVE 


B 


*** 


FORMAT 




DRIVE 


8 


*** 


READ 




DRIVE 


a 


$ & # 


HEAD 


$ * <& 


DRIVE 






READ 


* 


DRIVE 


a 




rfRlTE 


*** 


DRIVE 


8 




READ 


$ t * 


DRIVE 


8 


At* 


HEAD 


* # * 


DRIVE 


8 




READ 


*** 


DRIVE 


a 


* 


HEAD 




DRIVE 


8 



*** END-OF-TEST *** 
SOFT ERRORS**) 
HARD ERRORS*® 
BYTES R£AO»1304096 
8YTE& HRlTTEN»376de>8 
TAPE PASSESislS 
FllES/PASSsia 
StOC^S/FILEsl6 



9 



PROGRAM DESCRIPTION 



THIS PROGRAM IS DfcSIGNtD AROUND THREE PRIMARY ROUTjNtS 
THAT WILL TRANSFER DATA TO ANQ/QR PROM THE TA|i/TUfe*3 
GOING FROM W 80T H TO "EOT" OF THE TAPE 9 EACH OF THESE 
ROUTINES HAKE USE OF COMMON SUBROUTINES TO MANIPuLATt 
TAPE MOTION, KEEP TRACK OF TAPt POSITION, SETUP DATA 
BUFFERS AND CHECK , COUNT AND REPORT ERRORS. 
THESE ROUTINES ARE DEFINED AND EXPLAINED BELOW* 

9 9 I FORMAT PASS 



THIS IS A WRITE, BACKSPACE AND READ ROUTINE STARTING AT 
" B T H THE FOLLOWING PROCEDURE IS PREFORMED? 

1, WRITE A BLOCK OF DATA 

2* BACKSPACE A BLOCK GAP 

J« READ THE BLOCK 

4. CHECK FOR SYNC ERROR 

5. CHECK FOR DATA ERROR 

REPEAT STEPS 1-5 SIXTEEN TIMES 
T a WRITE A FILE GAP 
8, REPEAT STEPS 1-7 UNTIL "EOT" 

9,2 WRITEONLY PASS 



THIS IS A WRITE ONLY ROUTINE , STARTING AT M BOT" THE 
FOLLOWING PROCEDURE IS PREFORMED I 

1 , WRITE SIXTEEN BLOCKS OF DATA 

a, WRITE A FILE GAP 

J 9 REPEAT STEPS 1 i a TO "EOT" 

% 3 READONLY PASS 



this is a read only routine ano requires that a "format" 
or "writeonly" pass has already been preformed • starting 

at 11 b t " the f ollowing procedure is preformed i 

1* re^o a block of data 

2, check for sync error 

3, check for data error 

4„ REPEAT STEPS i«3 SIXTEEN (163 TIMES 
% w SPACE FORWARD FILE GAP 
6» REPEAT STEPS 1-5 UNTIL THE LAST BLOCK 
OF THE LAST FILE HAS BEEN ^EAD® 



T A i I DATA RELIABILITY MA I NDEO 11 -02T At*°C M AC Y 1 1 27(ltftfbJ 1T-maR*77 14SS5 



DZTA&C*P11 i7**MAR-7f 14152 TAI5LE OF CONTENTS 

13 GENERAL INFORMATION 

59 OPERATIONAL SNITCH SETTINGS 

77 BASIC DEFINITIONS 

218 STARTING ADDRESSES 

219 TRAP CATCHER 

228 STARTING ADDRESSCES) 

254 COMMON TAGS 

323 BLOCK SIZE TABLE 

344 TABLE OF PQINTtRS TO THE DIFFERENT PATTERNS 

3&6 DATA PATTERNS 

420 PARAMETER BLOC* USED WITH ALL FUNCTIONS 

428 ERROR POINTER TABLE 

530 START UF TEST 

552 INITIALIZE THE COMMON TAGS 

586 TYPE PROGRAM NAME 

593 GET VALUE FOR SOFTWARE SWITCH REGISTER 

812 "FORMAT" ROUTINE 

964 "READ ONLY" ROUTINE 

1101 "WRITE ONLY" ROUTINE 

1 187 CHECK "E0T5" 

1211 END OF PASS ROUTINE 

1307 SCOPE HANDLER ROUTINE 

1340 ERROR MANOLEW ROUTINE 

1382 ERROR r YPEOUT ROUTINE 

1487 DETERMINE CONTROL AND STATUS ERROR 

15^5 ROUT I Nt TO SETUP FOR A WRITE OPERATION 

15^7 ROUTINE TO FILL THE BUFFER BEFORE A WRITE 

1642 RQUTINt TO SETUP FOR A READ 

1680 ROUT I Nt TO CHELK FOR SYNC PROBLEMS 

16^9 ROUTINE TO CHfcUK THE READ DATA 

1749 COUNT SOFT DATA ERROR 

1766 COUNT HARD ERRUR 

1780 SAVE AND RESTORE R0-R5 ROUTINES 

18^9 CASSETTE PRIMITIVES ROUTINE 

1879 CASSETTE INTERRUPT HANDLER 

1924 DOUBLE LENGTH BINARY TU DECIMAL ASCII CONVERT ROUTINE 

1986 SINGLE LENGTH tflNARY TU DECIMAL ASCIZ ROUTINE 

2004 TYPE NUMERICAL ASCII SIRING SUPPRESS LEAPING ZtRUS 

2(327 READ AN OCTAL NUMBER F K OM THE TT Y 

2066 ROUT I Nt TO TYpt DRIVE 

2084 ROUTINE TO ASK THE OPERATOR WHAT DRIVE 15) TO TEST 

2119 ROUT I Nt TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY 

2180 ROUT I Nt TO EXAMINE DRIVECS) FOR AVAlLASLITY 

2210 TYPE ROUTINE 

2280 TT Y INPUT ROUTINE 

2419 BINARY TO OCTAL (ASCII,) AND TYPE 

2496 TRAP DECODER 

2519 TRAP TABLE 

25^0 POWER DOWN AND UP ROUTINES 

2585 DATA TABLE POINTERS AND DATA FORMATS FUR ERRORS 

2623 ASCII MESSAGES 

2785 READ ANO WRITE BUFFER 
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i 



2 


•TITLE 


TAS1 DATA RELIABILITY MA INDEC-l 1 -DZTAE-C 


3 


/*COPYRIGHT tC) 1973,1*77 




4 


; *UIGITAL EQUIPMtNT CQHP, 




5 


/ *MAYNARD, MASS, 01 7b« 




6 
7 

a 


/* 

MPRQGKAM 8Y JIM IACEY 




9 


/*THIS 


PROGRAM Hi AS ASSEMBLED USING THE PDP-11 


MAINDEC SYSMAC 


10 


/♦PACKAGE (MAlNDtC-i 1-UZUAC-C3J , JAN 19, 1977 




i 1 


/ * 






12 


//»**** 


A********************************************************* 


13 


//A************************************************************** 


14 


; ; ***** 


A********************************************************* 


15 


8 RtM| 






16 








17 




GENERAL INFORMATION ABOUT THE TA1 1/TU60 CASSETTE 


18 
19 


ADDRESS 


MNEMONIC DESCRIPTION 




20 








21 








22 








23 


777500 


TACS CONTROL AND STATUS REGISTER 




2a 


777502 


TAOB DATA BUFFER REGISTER 




25 


260 


TAVEC INTEHRUPT VECTOR 




26 








27 


TACS REGISTER DESCRIPTION 




28 








29 




INIT 




30 


BIT 


NAME STATE READ 


AND /UR WRITE? 


31 








32 








33 


15 


ERROR ? READ 


ONLY 


34 


14 


BLOCK CHECK ERROR READ 


ONLY 


35 


13 


CLEAR LEADER ? READ 


ONLY 


36 


12 


WRITE LOCK ? READ 


ONLY 


37 


11 


FILE GAP READ 


ONLY 


38 


10 


TIMING ERROR READ 


ONLY 


39 


139 


OFF LINE ? READ 


ONLY 


«0 


06 


UNIT SELECT READ/WRITE 


«1 


07 


TRANSFER REQUEST READ 


ONLY 


«2 


06 


INTERRUPT ENABLE READ/WRITE 


«3 


05 


READY 1 READ 


ONLY 


aa 


00 


IL8S READ/WRITE 


45 


03 


FUNCTIUN BIT READ/WRITE 


«6 


02 


FUNCTIUN BIT 01 READ/WRITE 


«7 


01 


FUNCTION BIT 00 READ/WRITE 


48 




0»WRITE-FIL.£-GAP 




49 




1SWRITE 




50 




2»REA0 




51 




3»BACK SPACE FILE GAP 




52 




4*BACK SPACE BLOCK GAP 




53 




5»SPACE FORWARU FILE GAP 




54 




6aSPACt FORWARD BLOCK GAP 




55 




71REWINQ 




56 


00 


GO BIT WRITE 


ONLY J 
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0ZTAEC.P11 


17»MAR<*77 


57 




58 




59 




60 




6i 




62 




63 




64 




65 




66 




67 




68 




69 




70 




71 




72 




73 




74 




75 




76 




77 




78 


001100 


79 




80 
81 




82 




83 


000011 


64 


000012 


85 


000015 


86 


000200 


87 


177776 


88 




89 


177774 


90 


177772 


91 


177570 


92 


177570 


93 




94 




95 


000000 


96 


000001 


97 


000002 


98 


000003 


99 


000004 


100 


000005 


121 


000006 


102 


000007 


103 


000006 


104 


000007 


105 




106 




107 


000000 


108 


000040 


109 


000100 


110 


000140 


111 


000200 


112 


000240 



OPERATIONAL SWITCH St T T I NG5 

OPERATIONAL SWITCH SETTINGS 
SWITCH USE 



15 
14 
13 

10 



MALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

DING BELL ON ERROR 

HALT AFTER NEXT l, END»OF«TEST " TYPE OUT 
AT NEXT "EOT" GOTO "END-0F-TEST " 
PERFORM AS PER 5WR<1 Z0> 

00BFORMAT 

1 "READONLY 

10SWRITEONLY 

ll«READONLY 



» SBTTL BASIC DEFINITIONS 



/•INITIAL AODRCSS OF THE STACK POINTER *** 
STACKS 1100 



.EUUIV 


EMT, ERROR 


/ | BASIC DEFINITION OF ERROR 


.EUUIV 


IOT.SCUPE 


7 / BASIC DEFINITION OF SCOPE 


/^MISCELLANEOUS DEFINITIONS 


MT8 


11 


l/CODE FOR HORIZONTAL TAB 


LFs 


12 


/ / CODE FOR LINE FEED 


CRs 


15 


//CODE FOR CARRIAGE RETURN 


CRLF » 


200 


//CODE FOR CARRIAGE RETURN- 


PS* 


177776 


/ / PROCESSOR STATUS WORD 


, EUUIV 


PS,PSW 




STKLMTs 


177774 


/ /STACK LIMIT REGISTER 


PI«0* 


177772 


/ / PROGRAM INTERRUPT REQUEST 


DSWRs 


177570 


/ / HARDWARE SWITCH REGISTER 


DDlSPs 


177570 


//HARDWARE DISPLAY REGISTER 


/ *GENERAL PURPOSE 


REGISTER DEFINITIONS 


R0» 


%0 


/ /GENERAL REGISTER 


Rl* 


XI 


//GENERAL REGISTER 


R2® 


%i 


//GENERAL REGISTER 


R38 


%2 


/ /GENERAL REGISTER 


Has 


X4 


/ /GENERAL REGISTER 


R5* 


X5 


//GENERAL REGISTER 


R&s 


Xb 


/ /GENERAL REGISTER 


R 7 8 


%1 


//GENERAL REGISTER 


SPs 


%h 


//STACK POINTER 


PC 8 


XT 


/ / PROGRAM COUNTER 



/♦PRIORITY UEVtL OE* 1NITIUNS 

PRffls //PRIORITY LEVEL 

PR1* 40 //PRIORITY LEVEL 

PR2a 100 //PRIORITY LEVEL 

PR3« 140 //PRIORITY LEVEL 

PR4« 200 //PRIORITY LEVEL 

PR5» 240 //PRIORITY LEVEL 
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BASIC DEFINITIONS 


113 


000300 




PRtos 


300 


; /PRIORITY LEVEL 6 


114 


000340 




PR 7 a 


340 


//PRIORITY LEVfcL 7 


115 
lib 






/♦"SWITCH RtGISTER" SWITCH DEFINITIONS 


117 


100000 




SW15s 


10000 





i i a 


040000 






U0000 




119 


020000 




5*138 


20000 




120 


010000 




SW12* 


10000 




121 


004000 




SMils 


4000 




122 


002000 




5Wl0s 


2000 




123 


001000 




Sw09a 


1000 




124 


000400 




8WI08* 


400 




125 


000200 




5WI07 b 


200 




126 


000100 




5W06® 


100 




12? 


000040 




SW05S 


40 




128 


000020 




Sw04s 


20 




129 


000010 




SWI038 


10 




130 


000004 




5W02» 


4 




131 


000002 




Sw(3ls 


2 




132 


000001 




SWI308 


1 




133 






.euuiv 


SW09, 


SW9 


134 






.EQUIV 


SW36, 


S«8 


135 






.EQUIV 


SW07, 


SW7 


136 






.EUUIV 


SW06, 


SW6 


137 






.EQUIV 


5W05, 


5W5 


138 






.EQUIV 


SW04, 


SW4 


139 






.EQUIV 


SW03, 


SW3 


140 






.EUUIV 


SW02, 


SW2 


HI 






.EQUIV 


SW01 , 


5W1 


142 






.EQUIV 


SW00, 


SW0 


143 












144 






/ sQAT A 


SIT DEFINITIONS CBIT00 TO BITlb) 


145 


100000 




9IT15a 


100000 


146 


040000 




BIT14« 


40000 




147 


020000 




»IT13s 


20000 




148 


010000 




8IT12s 


10000 




149 


004000 




81 T H s 


4000 




150 


002000 




BIT10* 


2000 




151 


001000 




8IT09S 


1000 




152 


000400 




BIT08* 


400 




153 


000200 




SlT07s 


200 




154 


000100 




8IT068 


100 




155 


000040 




B1T05S 


40 




156 


000020 




BIT04S 


20 




157 


000010 




8IT03s 


10 




158 


000004 




8IT02a 


4 




159 


000002 




8IT01« 


2 




160 


000001 




HIT00S 


1 




161 






.EQUIV 


BIT09 


,BIT9 


162 






.EUUIV 


BIT08 


,8IT8 


163 






.EQUIV 


BIT07 


,BIT7 


164 






»EUUIV 


BIT06 


# BITb 


165 






.EQUIV 


BIT05 


,BIT5 


166 






.EQUIV 


8IT04 


,»IT4 


167 






.EQUIV 


8IT03 


, BIT3 


168 






.EQUIV 


8IT02 


,BIT2 
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BASIC DEFINITIONS 


169 






.EQUIV 


BIT01 


, BIT! 


170 






.EQUIV 


8IT00 


,BIT0 


171 












172 






/*basic 


"CPU" 


TRAP VtCTOR ADDRESSES 


173 


000004 




ERKVECs 


4 


/ /TIME OUT AND OTHER ERRORS 


174 


000010 




RESVEC" 


10 


J I RESERVED AND ILLEGAL INSTRUCTIONS 


175 


000014 




TBITVEC»14 


H"T H BIT 


176 


000014 




TRTVEC 8 


14 


1 J TRACE TRAP 


177 


000014 




BPTVEC 


14 


/ I BREAKPOINT TRAP (BPTJ 


178 


000020 




I0TVEC8 


20 


/ J INPUT/OUTPUT TRAP (IOT) **SC0PE** 


179 


000024 




PwKVEC® 


24 


/ /POWER FAIL 


180 


000030 




EMTVEC* 


30 


/ | EMULATOR TRAP CEMT) «*£RROR** 


181 


000034 




TRAPVECa34 


/ ; "TRAP" TRAP 


182 


000060 




TKVEC* 


60 


I ; TT Y KEYBOARD VECTOR 


183 


000064 




TPVEC» 


64 


/ ;TTY PRINTER VECTOR 


184 


000240 




PIHQVEC»240 


/ / PROGRAM INTERRUPT REQUEST VECTOR 


185 






J/**«**ftgri&a«fc#**s&a***«***fta*#a***a*#^ 


186 












187 






I#**#«*##*#TAl I FUNCTIUNS*#^#«f##### 


188 


000000 




XWFG« 





/WRITE FILE GAP FUNCTION 


189 


000002 




XWRITE* 


2 


/WRITE FUNCTION 


190 


000004 




XREAD* 


4 


/ READ FUNCTION 


191 


000006 




XBSFG® 


b 


/BACK SPACE FILE GAP FUNCTION 


192 


000010 




XflSBGs 


10 


I BACK SPACE BLOCK GAP FUNCTION 


193 


000012 




XSPFGs 


12 


J SPACE F WD FILE GAP FUNCTION 


194 


000014 




XSFBGs 


14 


/SPACE F WD BLOCK GAP FUNCTION 


195 


000016 




XRWNDs 


16 


/REWIND FUNCTION 


196 












197 






;»######«#*TAU BIT ASSlbNMENT###*«##### 


198 


100000 




ERRORS 


Bins 




19<J 


040000 




CRCERRs 


BIT14 




200 


020000 




LEADERS 


BIT13 




201 


010000 




WRTU0CK8BIT12 




202 


004000 




FGAPs 


BITii 




203 


002000 




TIMERR8 


BIT10 




204 


001000 




OFFLINEsBI?09 




205 


000400 




UNIT» 


BIT08 




206 


000200 




TR.REQ* 


BIT07 




207 


000100 




INT, EN* 


BIT06 




208 


000040 




READY » 


BIT05 




209 


000020 




ILBSs 


8IT04 




210 


000010 




FyNC2® 


BIT03 




211 


000004 




FUNCla 


BIT02 




212 


000002 




FUNC0» 


BIT01 




213 


000001 




GQs 


BIT00 




214 


000016 




FUNCTIONS 


FUNC«i + FUNCl*FUNC0 


215 
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31 4. 

cio 








217 












a d) si r% Gk £t 




219 








220 








22l 








222 




www X ' *• 




223 


anon fa 






22ft 


000 176 






225 








226 




000137 


00 1 752 


227 


000204 


000137 


00200a 


228 


000210 


000137 


002012 


229 








230 









»SBTTL TRAP CATCHER 



.80 



l*ALL UNUSED LOCATIONS PROM 4 - 776 CONTAIN A ",*2, HALT" 
/♦SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
/♦LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
,«174 



oispregs ,word 

swneg: ,wo*d 

•sbttl starting address (es) 
jmp #*beuin1 
jmp »«beuin2 
jmp #*beuin3 



/ /SOFTWARE DISPLAY REGISTER 
I / SOFTWARE SWITCH REGISTER 

/ 1 JUMP TO STARTING ADDRESS OF PROGRAM 

/ SELECT DRIVE (S) BEFORE STARTING TEST 

f SELECT DRIVE C8) AND ADDRESSES BEFORE TESTING 
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DZTAEC 


Pll 17 


•MAR-7T 14152 


COMMON 


TAGS 






231 






• SBTTL 


COMMON 


TAGS 




232 














233 








234 






/ftTHIS 


TABLE CUNTAINS 


VARIOUS COMMON STORAGE LOCATIONS 


235 






MUSED 


IN THE 


PROGRAM 




236 














237 




001100 




.«1100 






238 


001100 




SCMTAGt 






//START OF COMMON TAGS 


239 


001100 


000000 


8PAS5 1 


,WORD 





/ /CONTAINS PASS COUNT 


240 


001102 


000 


STSTNMJ 


• BYTE 





//CONTAINS THE TEST NUMBER 


241 


001103 


000 


SERFLGI 


• BYTE 





/ /CONTAINS ERROR FLAG 


242 


001104 


000000 


SICNTI 


a WORD 


10 


//CONTAINS SUBTEST ITERATION COUNT 


243 


001106 


000000 


SLPADR1 


• WQRD 





//CONTAINS SCOPE LOOP ADDRESS 


244 


001110 


000000 


SLPERRI 


s WORD 





//CONTAINS SCOPE RETURN FOR ERRORS 


245 


001112 


000000 


SEHTTLI 


• WORD 





//CONTAINS TOTAL ERRORS DETECTED 


246 


001114 


000 


SITEMBI 


.BYTE 





//CONTAINS ITEM CONTROL BYTE 


24? 


001115 


001 


SERMAXt 


• BYTE 


1 


//CONTAINS MAX, ERRORS PER TEST 


248 


001116 


000000 


SERRPC1 


, WORD 





//CONTAINS PC OF LAST ERROR INSTRUCTION 


249 


001120 


000000 


SGDADRI 


.WORD 





//CONTAINS ADDRESS OF 'GOOD' DATA 


250 


001122 


000000 


SBDADR f 


• WORD 





//CONTAINS ADDRESS OF 'BAD' DATA 


231 


001124 


000000 


SGOOATI 


• WORD 





//CONTAINS 'GOOD * DATA 


232 


001126 


000000 


IBDDATi 


• WORD 





//CONTAINS 'BAD ' DATA 


253 


001130 


000000 




• WORD 





//RESERVED— NOT TO BE USED 


234 


001132 


000000 




»WQRD 






255 


001134 


000 


SAUTOBI 


• BYTE 





//AUTOMATIC MODE INDICATOR 


236 


001135 


000 


SINTAGI 


• BYTE 





/ / INTERRUPT MODE INDICATOR 


257 


001136 


000000 




• WORD 







258 


001140 


177570 


SWRS 


s WORD 


DSWR 


/ / ADDRESS OF SWITCH REGISTER 


259 


001142 


177570 


DISPLAY 


: ,WORD 


D0I5M 


/ / ADDRESS OF DISPLAY REGISTER 


260 


001144 


177560 


STKSI 


177560 




/ / TTY XBD STATUS 


261 


001146 


177562 


STKBI 


177562 




/ / TTY KBD BUFFER 


262 


001150 


177564 


STPSI 


177564 




//TTY PRINTER STATUS REG, ADDRESS 


263 


001152 


177566 


STPBJ 


177566 




//TTY PRINTER BUFFER REG, ADDRESS 


264 


001154 


000 


SNULLI 


• BYTE 





//CONTAINS NULL CHARACTER FOR FILLS 


265 


001155 


002 


•FILLS? 


• BYTE 


2 


//CONTAINS # OF FILLER CHARACTERS REQUIRED 


266 


001156 


012 


SFILLCI 


• BYTE 


12 


/ / INSERT FILL CHARS, AFTER A "LINE FEED" 


267 


001157 


000 


STPFLGI 


,BYTE 





//"TERMINAL AVAILABLE" FLAG (BIT«07>i0» YES) 


268 


001160 


000000 


SRtGAOt 


• WORD 





//CONTAINS THE ADDRESS FROM 


269 












//WHICH CSREG0J WAS OBTAINED 


2T0 


001162 


000000 


1REG0I 


• WORD 





//CONTAINS U«REGAD)*0) 


271 


001164 


000000 


SREGli 


S WQRD 


£ 


/ /CONTAINS (CSREGAD3+2) 


272 


001166 


000000 


3REG2I 


• WORD 





//CONTAINS ( (SREGAD) +4) 


273 


001170 


000000 


SREG3I 


• WORD 





//CONTAINS CCSREGADJ*6) 


274 


001172 


000000 


STMP0I 


• WORD 





//USER DEFINED 


275 


001174 


000000 


STMP1J 


,WORD 





//USER DEFINED 


276 


001176 


000000 


STMP2: 


.WORD 





//USER DEFINED 


277 


§01200 


000000 


STMP3I 


• WORD 





/ /USER DEFINED 


278 


001202 


077 


SQUESI 


•ASCII 


/?/ 


//QUESTION MARK 


279 


001203 


015 


SCRLF* 


.ASCII 


«15* 


//CARRIAGE RETURN 


280 


001204 


000012 


iLFl 


•ASCIZ 


«12» 


/ /LINE FEED 


281 








282 


001206 


000000 


SOPTNMI 


• WORD 





/NUMBER OF SOFT ERRORS 


283 


001210 


000000 


HARDNMI 


.WORD 





/NUMBER OF HARD ERRORS 


284 


001212 


000000 


EOTS! 


• WORD 





/NUMBER OF TAPE PASSES 


285 


001214 


000000 000000 


RBYTTL» 


«WORD 


W,0 


/NUMBER OF BYTES READ 


286 


001220 


000000 000000 


WBYTTLI 


s WORD 


0f0 


/NUMBER OP BYTES WRITTEN 



TAXI DATA RELIABILITY MAINDEC1 


1«DZTAE*C 


MACYit 


27(l0tf6J 


17-MAR-77 14S55 PAGE 7 


OZTAEC, 


Pil 


17-MAR-77 14152 


COMMON 


T AGS 






28? 


001224 


000000 


RQTRYSI 


9 W0RD 





IKEEPS COUNT OF REREADS 


268 


001226 


000000 


WRTRY8I 


t WORD 


u 


; KEEPS COUNT OF REWRITES 


289 


001230 


000000 000000 


BYTNUMI 


.WORD 


0,0 


1 THE NUMBER OF BYTES "READ" OR "WRITTEN 


290 












I DURING AN OPERATION 


291 


001234 


000017 


LASTBKI 


.WORD 


15, 


IWILL CONTAIN THE # OF THE LAST BLOCK 


292 












1 AFTER A "FORMAT" OR "WRITE" PASS 


293 


001236 


000011 


LASTFLI 


t WORD 


9, 


IWILL CONTAIN THE # OF THE LAST FILE 


294 












1 AFTER A "FORMAT" OR "WRITE" PASS 


295 














296 














297 


001240 


177500 


TACSL1 


177500 




f ADDRESS OF TACS 


298 


001242 


177502 


TAOBLI 


177502 




1 ADDRESS OF TADB 


299 


001244 


000260 000262 


TAVECl 


260, 262 




ITAli VECTOR ADDRESS 


300 


001250 


000300 


TAPRIOI 


300 




ITAU BR LEVEL 6 


301 


001252 


000000 000000 


DRVKEYI 


0,0 




302 


001256 


001252 


DRVPNTJ 


DRVKEY 






303 


001260 


000003 


MAXRDS! 


,W0RD 


J 


IMAX REREADS BEFORE CALLING IT A HARD ERROR 


304 


001262 


000003 


HAXERRI 


» WORD 


J 


J MAX HARD ERRORS ALLOWED 


305 


001264 


000022 


maxeot: 


e WORD 


18 s 


INUMBER Of TAPE PASSES BEFORE END W QP«TEST 


306 


001266 


000000 


PA8CNTJ 


„ WORD 





! COUNT » OF TAPE PASSES 


30T 


001270 


001274 000000 


PSCNTLI 


*WORD 


FORPA8,0 


/CONTROLS THE TYPE OF PASS 


308 


001274 


000001 


F0KPA5! 


.WORD 


1 


1 1 FORMAT PASS 


309 


001276 


000003 


RD1PASI 


.WORD 


3 


1 3 READONLY PASSES 


310 


001300 


000001 


WRTPASI 


.WORD 


1 


1 1 WRITEONLY PASS 


311 


001302 


000004 


RD2PA5: 


t WORD 


4 


1 4 READONLY PASSES 


312 


001304 


000 


FILE! 


.BYTE 





f FILE NUMBER 


313 


001305 


377 




• BYTE 


377 


11*5 COMPLEMENT ON FILE NUMBER 


314 


001306 


000 


BLOCK 1 


.BYTE 





,*BLOCK NUMBER 


315 


001307 


377 




.BYTE 


377 


ll'S COMPLEMENT OF BLOCK NUMBER 


316 


001310 


000020 


FILESZ! 


9 WORD 




JNUMBEN OF BLOCKS PER FILE 
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3X7 














318 






;////////////////////////////////////////////////////////////////////// 


319 














320 






.SBTTL 


BLOCK 


SIZE TABLE 




321 














322 


001312 


002000 


BLKSZl » WORD 


1024, 


/BLOCK 





323 


001314 


001000 


.WORD 


512* 


/BLOCK 


1 


324 


001316 


002000 


.WORD 


1024* 


I BLOCK 


2 


325 


001320 


000400 


.WORD 


256. 


IBLOCK 


3 


326 


001322 


002000 


.WORD 


i02«. 


/BLOCK 


a 


32? 


001324 


000200 


*WORO 


128, 


IBLOCK 


5 


328 


001326 


002000 


9 WORD 


1024. 


IBLOCK 


6 


329 


001330 


000100 


.WORD 


6>4 S 


IBLOCK 


7 


330 


001332 


002000 


.WORD 


1024. 


1 BLOCK 


8 


331 


001334 


000040 


.WORD 


32, 


IBLOCK 


9 


332 


001336 


000200 


.WORD 


128* 


I BLOCK 


10 


333 


001340 


000400 


»WORD 


256, 


IBLOCK 


11 


334 


001342 


001000 


.WORD 


512. 


I BLOCK 


12 


335 


001344 


002000 


„ WORD 


1024. 


IBLOCK 


13 


336 


001346 


000040 


.WORD 


32. 


IBLOCK 


14 


337 


001350 


000200 


»WORD 


128, 


1 BLOCK 


15 


338 














339 






1////////////////////////////////////////////////////////////////////// 


340 














341 






.SBTTL 


TABLE 


UF POINTERS TO THE DIFFERENT PATTERNS 


342 














343 


001352 


001412 


PATSI PAT0 








344 


001354 


001422 


PAT1 








345 


001356 


001432 


PAT2 








346 


001360 


001442 


PAT3 








347 


001362 


001452 


PAT4 








348 


001364 


001462 


PAT5 








349 


001366 


001472 


PAT6 








350 


001370 


001502 


PAT7 








351 


001372 


001512 


PATS 








352 


001374 


001522 


PAT9 








353 


001376 


001532 


PAT10 








354 


301400 


001542 


path 








335 


001402 


001552 


PAT12 








356 


001404 


001562 


PAT13 








35? 


001406 


001572 


PAT 1 4 








358 


001410 


001602 


PA715 








359 
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DZTAEC.PU 17 


W MAR»77 


14S52 






TABLE 


OF POINTERS TO THE DIFFERENT PATTERNS 


















361 










;////////////////////////////////////////////////////////////////////// 


362 
















363 










# SB T TL 




OAT* PATTERNS 


364 
















365 


001412 


314 


063 


314 




* 




366 


001415 


063 


146 


231 








367 


001420 


146 


231 










368 


001422 


314 


231 


063 




gOYTfc 


3 1 4 , c 3 1 , 065 * 146*314.231 , 063 , 146 


369 


001425 


146 


314 


231 








370 


001430 


063 


1«6 










371 


001432 


001 


002 


004 




bBYTE 


@01,00<£*004*010, 020, 040* 100*200 


373 


001435 


010 


020 


040 








373 


001440 


100 


200 










3?a 


001442 


177 


277 


337 


P AT3 ! 


e 8 Y TE 


- 

177,^7 7,337,357*367,373,375*376 


375 


001445 


357 


367 


373 








376 


001450 


375 


376 










3T7 


001452 


252 


125 


252 


« 


8 




378 


001455 


125 


252 


125 








379 


001460 


252 


125 










380 


001462 


000 


ill 


222 


P AT5 1 


*BYTE 


0001 111*222,333,044, 155*266*377 


381 


001465 


333 


044 


155 








382 


001470 


266 


377 










383 


001472 


000 


044 


111 


p _ 


RVTF 




384 


001475 


155 


222 


266 








385 


001500 


333 


377 










386 


001502 


000 


222 


044 


PAT7 


BVTK 




387 


001505 


266 


in 


333 








388 


001510 


155 


377 










389 


001512 


001 


003 


007 




* 


MB 1 , 1005*007*01 7*057*077* 17 7,577 


390 


001515 


017 


037 


077 








39J 


001520 


1 77 


377 










392 


001522 


37b 


374 


370 


PAT9I 


»BYTE 


376* 57 M , J / , 360i 340* 300 * 200 * 000 


393 


001525 


360 


340 


300 








394 


001530 


200 


000 










395 


001532 


001 


376 


002 


PAT10I 


.BYTE 


001 * 570 * 00c , 5 (3| S3 »* f Jf 5 , id 1 to f 56 7 


396 


001535 


375 


004 


373 








397 


001540 


010 


367 










398 


001542 


020 


357 


040 


Hi 




0e0 i J3i , 0<*I0 * 55 r * 100* c( r * C00 * 17/ 


399 


001545 


337 


100 


277 








400 


001550 


200 


177 










401 


001552 


000 


000 


000 


PAT 12 


* ' 


mfiini « i nam i na nran Ann .. r% _ ___ 
000,000,000,000,000,000,000,000 


402 


001555 


000 


000 


000 








403 


001560 


000 


000 










404 


001562 


377 


377 


377 






"477 <77 177 17 7 17? 177 1?V 177 

4,7,57 f * 5 r 7 ,57 f ,577*57i *5 7 7*577 


405 


001565 


377 


377 


377 








406 


031570 


377 


377 










407 


001572 


000 


377 


000 


PAT 1 4 I 


»8YTE 


0001.37 7*000, .377*000*000*377*377 


408 


001575 


377 


000 


000 








409 


001600 


377 


377 










410 


001602 


017 


360 


207 


P AT 1 5 I 


.BYTE 


017,360,207,170,303,074,341,036 


411 


001605 


170 


303 


074 








412 


001610 


341 


036 










413 

















TAil DATA RELIABILITY MAINDEOl l-DZTAl>c 
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Pll 17*MAR»77 


414 




415 




416 




417 




418 




419 


001612 000 


420 


001613 000 


421 


001614 001612 


422 


001616 013464 


423 


001620 000000 


did 
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;////////////////////////////////////////////////////////////////////// 

sSBTTL PARAMETER BLOCK USED WITH ALL FUNCTIONS 



.BYTE 
.BYTE 

9 W0RD 
»WQRD 
»WQRD 





PARMBK 

BUFFER 



/ USED FOR STATUS/ERROR 
/DRIVE # (DRIVE AS0, B«l) 
/POINTS TO STATUS/ERROR BYTE 
/FIRST ADDRESS OF DATA BUFFER 
/ USED FOR BYTE COUNT, 
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425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
43& 
437 
43B 
439 
440 
44J 
442 
443 
444 
445 
446 
44? 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
438 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
47 2 
473 
474 
475 
476 
477 
478 
479 



001622 



001622 



001622 
001624 
001626 
001630 



001632 
001634 

001636 
001640 



001642 

001642 
001644 
001646 

001650 



001652 
001654 
001656 
001660 



012244 
012535 
011770 

012052 



012257 
012633 



012012 

012062 



012272 
012750 
012026 



.SBTTL ERROR POINTER TABLE 

f *THI3 TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR, 

J *THE INFORMATION 1 5 OBTAINED BY USING THE INDEX NUMBER FOUND IN 

^LOCATION SITtMB, THIS NUMBtR INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

f *NQTE1 • IF SITtMB IS THE ONLY PERTINENT DATA IS CSEWRPC) , 

MN0TE2I EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS t 



I* 

f* 
f * 
f 



EM 
DH 
DT 
OF 



f f POINTS TO THE ERROR MESSAGE 

IfPOINTS TO THE DATA HEADER 

ffPQINTS TO THE DATA 

ffPOINTS TO THE DATA FORMAT 



ff ****************** ft ******************************************** 
ff*************************************************************** 
ff*************************************************************** 

1TEMS0 t f ITEMS 001-002 

f NOTE I ALL NUMBERS WILL Bt TYPED AS 6 DIGIT OCTAL NUMBERS 
f UNLESS OTHERWISE NOTED 



012314 
012750 
012026 



I 

EMI 
DH1 
DTI 
DFl 

2 

EM£ 
DH2 

DT2 
OF2 



EM101 
DM101 
DT101 



EM102 
DH101 

DT101 



f DATA fcRROR 

f PC FILE BLOCK BYTE GDDAT BUD AT GD ADR 

fSERRPC SKEG0 SREG2 BYTNUM SGODAT $BDD AT SGDADR 

fFILt, BLOCK AND BYTE ARE TYPED IN DECIMAL 



f SYNC ERROR 

f EXPT 'D EXPT'O RCV'D RtV'O 

fPC FILE BLOCK FILE BLOCK 

fSERRPL SREG0 SREG2 STMP0 STMP2 

f ALL NUMBERS EXCEPT SERRPC ARE TYPED IN DECIMAL 

********************************************** 

************************************ 

f ITEMS 101-1137 

f DRIVE IS OFF-LINE 

f PC FILE BLOCK FUNCTION 

fSERHPC SREG0 SREG2 STMP0 

f FILt ANO BLOCK WILL BE TYPED IN DECIMAL 

f STMpfcJ WILL BE TYPED AS A FUNCTION NAME 

f ORIVE IS WRITE-LOCK 

I PC FILE BLOCK FUNCTION 

f SERRPC 3REG0 SREG2 STMP0 

f FILE AND BLOCK WILL Bt TYPED IN DECIMAL 

fSTMP0 WILL BE TYPED AS A FUNCTION NAME 



BD ADR 
SBDADR 
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DZTAEC, 


,Pil 


17^MAR»77 14152 


ERROR 


POINTER 


TABLE 




481 


001662 


012340 




EM103 


f CLEAR LEADER ERROR 






001664 


012750 




DH101 


fPC FILE BLOCK 


FUNCTION 


483 


001666 


012026 




DT101 


f SERKPt SREG0 SREG2 


STMP0 


484 


001670 


000000 







f FILt AND BLOCK WILL BE 


TYPED IN DECIMAL 


485 










f STMPfcJ WILL BE TYPED AS 


A FUNCTION NAME 


486 














487 


001672 


012363 




EM104 


f FILt UAP ERROR 




488 


001674 


012750 




DH101 


fPC FILE BLOCK 


FUNCTION 


489 


001676 


012026 




DT101 


f SERRPC 5REG0 SREG2 


STMP0 


490 


001700 


000000 







f FILt AND BLOCK WILL BE 


TYPED IN DECIMAL 


491 










f STMP0 WILL BE TYPED AS 


A FUNCTION NAME 


492 














493 


001702 


012402 




EM105 


f TIMINl* ERROR 




494 


001704 


012750 




DM101 


f PC FILE BLOCK 


FUNCTION 


495 


001706 


012026 




DT101 


f SERRPC SREGt! SREG2 


STMP0 


496 


001710 


000000 







f FILt AND BLOCK WILL BE 


TYPED IN DECIMAL 


497 










fSTMHkJ w ILL BE TYPED AS 


A FUNCTION NAME 


498 














499 


001712 


012417 




EMt06 


f BLOCK CHfcCK ERROR 




500 


001714 


012750 




DH101 


f PC FILE BLOCK 


FUNCTION 


501 


001716 


012026 




DT101 


f SERRPC SREGtd SREG2 


STMP0 


502 


001720 


000000 







f FILt AND BLOCK WILL BE 


TYPED IN DECIMAL 


503 
504 










f STMP0 WILL BE TYPED AS 


A FUNCTION NAME 


505 


001722 


012441 




EM107 


f UNKNOWN INTERRUPT 




506 


001724 


012750 




DH101 


f PC FILE BLOCK 


FUNCTION 


507 


001726 


012026 




DT101 


f SERRPC SRtGU SREG2 


STMP0 


508 


001730 


000000 







f FILt AND BLOCK WILL BE 


TYPED IN DECIMAL 


309 










f STMH0 WILL BE TYPED AS 


A FUNCTION NAME 


510 














511 






ft ft*** 


*********************************************************** 


512 






ff*************************************************************** 


513 






ff**** 






************************** 


514 














515 


§01732 




ITEMS2I 


f ITEMS 201-202 




516 














517 


001732 


012463 




EM201 


f T A 1 1 FAILED TO RESPOND 




518 


001734 


0130U 




DH201 


IPC TACS 




519 


001736 


012040 




DT201 


f SERRPC TACS 




520 


001740 


000000 







IBOTH NUMBtRS ARE TYPED 


AS OCTAL NUMBERS 


521 














522 


001742 


012512 




EM202 


f NO DRIVES AVAILABLE 




523 


001744 


013026 




DH202 


fPC 




524 


001746 


012046 




DT202 


f SERRPC 




525 


001750 


000000 







f 




326 
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527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
54? 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 



001752 
001754 
001762 
001770 
001772 



002002 
002004 
002010 
002012 
002016 



002022 
002026 
002030 
002034 
002036 

002042 
002050 
002056 
002064 
002072 
002100 
002106 
002114 
002122 
002130 



002136 
002142 
002150 
002156 
002164 
002172 

002174 
002176 
002202 
002204 
002212 
002220 



005005 
012737 
122737 
001012 
022737 
001006 
000403 
012705 
000402 
012705 
005067 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
016767 
012767 



013746 
012737 
012767 
012767 
022777 
001012 



012767 
012767 
012637 



041101 
000005 

000260 



005060 
000340 
011522 
000340 
011606 
000340 
002314 
002130 



001100 
001140 



000022 
000030 
000032 
000034 
000036 
000024 



002304 
176750 



002176 
177570 
177570 
177777 



002204 
000176 



J ////////////////////////////////////////////////////////////////////// 
I ////////////////////////////////////////////////////////////////////// 
ff************************************ *************** ************ 

/BtGINl IS FOR NORMAL START 

/8EGIN2 IS FOR DRIVE StLfcCTION 

/ BEGIN3 IS FOR DRIVE & ADDRESS SELECTION 

******************************************** 



001252 
000041 

001244 



176762 
176756 
176746 



176726 
176722 



CLR 


R5 


/ NORMAL START 


MOV 


#"AB,*#DRVKEY 




CMPB 


#5,«4S 


/CASSETTE OOP? 


BNE 


BGNCMN 


/GO BEGIN COMMON CODE IF NO 


CMP 


#260, #*TAVEC 


/ STANDARD VECTOR? 


BNE 


BGNCMN 


IGO BEGIN COMMON CODE IF NO 


BR 


BEGINS 


1 GET DRIVES AND ADDRESSES 


MOV 


*1,R3 


/ ASK FOR DRIVES FLAG 


BR 


BGNCMN 


/BEGIN COMMON CODE 


MOV 


*2,R5 


MSK FOR DRIVES AND ADDRESSES 


CLR 


PS 





BEGIN3I 
BGNCMN ! 

,5BTTL INITIALIZE THE COMMON TAGS 
//CLEAR THE COMMON TAGS (JCMTAG) AREA 

MOV 

CLR 

CMP 

BNE 

MOV 

//INITIALIZE 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

//SIZE FOR A 
//EQUAL TO A 

MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



//FIRST LOCATION TO BE CLEARED 
//CLEAR MEMORY LOCATION 



//LOOP BACK IF NO 
/ /SETUP THE STACK POINTER 



KSCMTAb, R6 

CR6J* 

#SwR,Rb / /DONE? 

»-6 

#STACK,SP 
A FEW VtCTOHS 

#SSCUPt,MIOTVEC / ZIQT VECTOR FOR SCOPE ROUTINE 
*34*J, #*I0TVEC + 2 / /LEVEL 7 

#SF-RHOK,##EMTV£C / / EMT VECTOR FOR ERROR ROUTINE 

«f340»f*EMTVEC*2 //LEVEL 7 

«*TRAP,#»TNAPVEC //TRAP VECTOR FOR TRAP CALLS 
#34(fl»#*TRAPVfcC+2/ LEVEL 7 

#SPWKDN,#»PWRVEC / /POWER FAILURE VECTOR 
#340,H»PWRVEC*2 / /LEVEL 7 

SENOLTjSEOPCT / /SETUP END-OF-PRUGRAM COUNTER 

SLPADR //INITIALIZE THE LOOP ADDRESS FOR SCOPE 

HARDWARfc SWITCH REGISTER, IF NOT FOUND OR IT 18 
"-1", StTUP FOR A SOFTWARE SWITCH REGISTER, 



BR 

MQV 

RTI 

MOV 

MOV 

MOV 



MERKVfcC-(SP) 

#64Si#»ERRVEC 
#DSWR,SWR 
*DDISP, DISPLAY 
#«1, «»SWR 
66S 

65$ 

#65S» UP) 



//SAVE ERROR VECTOR 
//SET UP ERROR VECTOR 

/ /SETUP FOR A HARDWARE SWICH REGISTER 
/ /AND A HARDWARE DISPLAY REGISTER 
/ /TRY TO REFERENCE HARDWARE SWR 
/ /BRANCH IF NO TIMEOUT TRAP OCCURRED 
//AND THE HARDWARE SWR IS NOT ■ -1 
/ /BRANCH IF NO TIMEOUT 
//SET UP FOR TRAP RETURN 

/ /POINT TO SOFTWARE SWR 



»SWRtG, SWK 
•DISPREG, DISPLAY 
(SP)*,*#tKRVEC / /RESTORE ERROR VECTOR 



,SBTTL TYPE PROGRAM NAME 
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583 










//TYPE 


THE NAME 


OF THE PROGRAM 


IF FIRST PASS 


584 


002224 


00522? 


177777 






INC 




/ /FIRST TIME? 


585 


002230 


001036 








BNE 


67$ 


/ / BRANCH IF NO 


586 


002232 


022737 


004726 


000042 




CMP 


*SENUAU, * *42 


//ACTM1? 


587 


002240 


001432 








BED 


67S 


/ / BRANCH IF YES 


588 


002242 


104401 


002300 






TYPE 


,68$ 


//TYPE ASCIZ STRING 


589 










.SBTTL 


GET VALUE FOR SOFTWARE 


SWITCH REGISTER 


590 


002246 


005737 


000042 






TST 


»*42 


/ /ARE WE RUNNING UNDER XXDP/ACT? 


591 


002252 


001006 








BNE 


69$ 


/ /BRANCH IF YES 


592 


002254 


026727 


176660 


000176 




CMP 


SWR,*SWREG 


/ / SOFTWARE SWITCH REG SELECTED? 


593 


002262 


001005 








BNE 


70S 


/ /BRANCH IF NO 


594 


002264 


104405 








GTSWR 




//GET SOFT-SWR SETTINGS 


595 


002266 


000403 








BR 


70S 




596 


002270 


112767 


000001 


176636 


693! 


MOVB 


*l,SAUTOB 


/ /SET AUTO-MODE INDICATOR 


597 


002276 








70S! 








598 


002276 


000413 








BR 


67$ 


//GET OVER THE ASCIZ 


599 










//66S! 


.ASCIZ 


<CRLF>/MAINDEC«» 


ll*DZTA£«*C/«CRLF» 



601 
602 
603 
604 
605 
606 
607 
603 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 



002326 010504 

002330 005305 

002332 002406 

002334 004737 007620 

002340 005305 

002342 002402 

002344 004737 007730 



/THE CONTENTS OF R5 DETERMINES WHAT WILL BE DONE 

/ 

ASK rOK DRIVE (S3 AND ADORESSES (TACS AND VECTOR) 

ASK FOR DRIVE CS J 
DON'T ASK FOR ANYTHING 



R5a2 
R5»i 
R5>0 



082350 012737 002366 

002356 005000 

002360 005777 176654 



/ 
/ 
/ 

fl***********^^*****************ii!^*^iiitit^*******»^^**^^iiii^***t**** 
BEGINS! ! MOV R5,R4 /COPY R5 

DEC R5 /ASK FOR DRIVES? 

BLT CHKAUR /BR IF NO 

JSR PC,**ASKORV /GO GET DRIVES TO BE TESTED 

DEC R5 /ASK FOR ADDRESSES? 

BLT CHKAUR /BR IF NO 

JSR PC,»*ASKADR /GO GET TAli ADDRESSES 

f*ttii************************»******t*********^**ti****** ********* 
f^^**^*******^************************^^****it**********^**ii^**** 

CHECK THAT * T ACS a WiLL RESPOND TO ADDRESSING 

I, TIMEOUT OCCUWRtD 

A, TYPE ERROR MESSAGE 

B, EXAMINE R« 

1, R4>I0 GOTO BEGINX 

2, R4»kJ EXAMINE (42) 

A t (42)80 GOTO BEGINX 
B « (42)»0 GOTO SENDAD 

II, TIMEOUT DIDN'T OCCUR 
A, CONTINUE 

l*****is*it****^********************t!********«^******************* 
CHKADR J MOV #lSr»*fcRRVtC /IN CASE OF TIMEOUTS 

CLR R0 / USE AS A SWITCH 

TST PTACSL /SEE IF TAli RESPONDS 
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639 


002364 


000402 






BR 


2$ 


I BR IF NO TIMEOUT 


640 


002366 


005200 




l$: 


INC 


R0 


I COME HERE ON TIMEOUT 


6«l 


002370 


022626 






CMP 


(SP)+, ISP)* 


1 CLEANUP THE STACK 


&«2 


002372 


012737 


000006 


000004 25 S 


MOV 


*ERRVEL + 2,MERRVEC 


f RESTORE TIMEOUT VECTUK 


643 


002400 


005700 






T5T 


R0 


IDID A TIMEOUT OCCUR? 


644 


002402 


001412 






BEQ 


i$ 


; BR IF NO 


645 


002404 


104201 






ERROR 


201 


ITA1 1 FAILED TO RESPOND 


646 


002406 


012705 


000002 




MOV 


*2,Ri> 


I DRIVES & ADDRESSES 


647 


002412 


005704 






TST 


K4 


^OPERATOR INPUTS? 


648 


002414 


001344 






0NE 


BEGINX 


1 BR IF YES 


649 


002416 


013700 


000042 




MOV 


»«42,Rtf 


1 GET MONITOR RETURN ADDRESS 


650 


002422 


001741 






BEQ 


BEGINX 


IBR IF NO MONITOR 


651 


002424 


000137 


004726 




JMP 


P#SfcNDAD 


fGO TO END 


652 


002430 


012777 


007056 


176606 3SS 


MOV 


#CASINT,S»TAVEC 


/SETUP CASSETTE INTERRUPT VECTOR 


653 


002436 


005077 


176604 




CLR 


#TAVfcC*2 
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654 
655 
656 
65? 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 

67? 002442 

678 002446 

679 002452 
660 002454 
631 002460 
6&2 002462 
683 002466 

664 002470 

665 002472 

666 002474 
637 002476 
688 002502 
639 002504 
690 002506 
69| 002512 

692 002516 

693 002522 

694 002524 

695 002530 
6^6 002532 
69? 002534 

698 002540 

699 002544 
002550 
002554 

702 002560 

703 002562 

704 002566 

705 002572 

706 002576 

707 002602 

708 002604 

709 §02606 



701 



012700 
004737 
000410 
116010 
001412 
004737 



005010 
000405 
005200 
004737 



105010 
012700 
010037 
121060 
001002 
105060 
005710 
001424 
112037 
104401 
106237 
004737 
111037 



104401 
106237 
004737 
104401 
000412 
104202 
012705 



MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 

I, DESIRED DRIVES CAN NOT BE TESTED 

A, TYPE ERROR MESSAGE 

B, EXAMINE R4 

1, R4>lfl GOTO BEGINX 

2, R4*lfl EXAMINE 142) 

A « C42)s63 GOTO BEGINX 
8» (42)>0 GOTO SENDAD 

II, BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 

A, CLEAR BAD DRIVE FROM THE DRIVE TABLE 

B, TYPE THE URIVE TO BE TESTED 

C, CONTINUE IN PROGRAM 



001252 
010174 



010174 



001252 
001256 



001613 
001203 
001613 
007564 
001613 

013220 
001613 
007564 
013225 



DESIRED 


DRIVfctS) CAN BE 


TESTED 


A, TYPE 


THE URIVE (S3 TO 


BE TESTED 


B, CONTINUE IN PROGRAM 








********************************* 


MOV 


*DRVKEY,R0 


IPICKUP ADDRESS OF ASCII DRIVE KEY 


JSR 


PC,»*EXAM 


/GO EXAMINE FIRST DRIVE 


BR 


IS 


f OK TO TEST— -GO CHECK NEXT 


MOVB 


1 (R0) , IR0) 


1 REPLACE 1ST WITH 2ND 


BEQ 


2$ 


IBR IF NO 2ND DRIVE SELECTED 


JSR 


PC,$>»EXAM 


IGQ EXAMINE ORIVE 


BR 


2$ 


IOK TO TEST 


CLR 


(R0) 


f CLEAR DRIVE CODES 


BR 


2$ 




INC 


R0 


IPOINT TO 2ND 


JSR 


PC,$®EXAM 


IGO EXAMINE DRIVE 


BR 


2$ 


JOK TO TEST 


CLRB 


(R0) 


; CLEAR 2ND 


MOV 


®ORVKfcY,R0 


I RESET ADDRESS POINTERS 


MOV 


R0,#»ORVPNT 




CMPB 


IR0) # 1 IRB) 


1 1 ST ■ 2ND? 


BNE 


35 


IBR IF NO 


CLRB 


1 (Raj 


f YES—-CLEAR 2ND 


TST 


(R0) 


1 ANY DRIVES? 


BEQ 


55 


IBR IF NO 


MOVB 


(R0)*,#»#PAHMBK + 1 


ISETUP TO TYPE THIS DRIVE 


TYPE 


,SCRLP 


1 TYPE "CR" & "LF» 


A5RB 


##PAKMBK*I 


IADJUST FOR TYPING 


JSR 


PC,$»TPDKV 


IGO TYPE DRIVE 


MOVB 


CR0) ,#*PARMBK+i 


IGET 2ND 


BEQ 


4S 


IBR IF NONE 


TYPE 


,MSG<* 


f "AND" 


ASRB 


##PAKMBK*I 


1 ADJUST FOR TYPING 


JSR 


PC,MTPDRV 


1 GO TYPE THE 2ND DRIVE 


TYPE 


,MSG10 


1 "WILL BE TESTED"«CRLF> 


BR 


START 




ERROR 


202 


INO DRIVES AVAILABLE 


MOV 


«2 f S5 


1 DRIVES & ADDRESS 
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710 


002612 


005704 




TST 


R« 


/ OPERATOR INPUTS? 


711 


002614 


001244 




8NE 


BEG I NX 


/BR IF YES 


712 


002616 


013700 


000042 


MOV 


?#42,R0 


/ GET MONITOR RETURN 


713 


002622 


001641 




BED 


BEGINX 


/NO MONITOR 


714 


002624 


000137 


004726 


JMP 


MSENDAD 


/GO TO END 



T A 1 1 DATA RELIABILITY 



DZTAfcC, 


Pli 


l7»MAR-77 


14S52 


715 








716 








717 








718 








719 








720 








721 








722 








723 








724 








725 








726 








72? 








728 


002630 


012700 


001114 


729 


002634 


012701 


000005 


730 


002640 


004737 


002764 


731 


002644 


012700 


001206 


732 


002650 


012701 


000014 


733 


002654 


004737 


002764 


734 


002660 


013701 


001256 


735 


002664 


112100 




736 


002666 


006200 




737 


002670 


042700 


177776 


738 


002674 


110037 


001613 


739 


002700 


105711 




740 


002702 


001002 




741 


002704 


012701 


001252 


742 


002710 


010137 


001256 


743 


002714 


012737 


000011 


744 


002722 


012737 


000017 


745 


002730 


013737 


001260 


746 


002736 


013737 


001262 


747 


002744 


012737 


001274 


748 


002752 


005037 


001272 


749 


002756 


005037 


001266 


750 


002762 


000404 




751 


002764 


005020 




752 


002766 


005301 




753 


002770 


003375 




754 


002772 


000207 
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I////////////////////////////////////////////////////////////////////// 
I ////////////////////////////////////////////////////////////////////// 

// 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



1, CLEAR THE VARIABLE STORAGE AREA 

2. SETUP FOR THE DRIVE THAT IS TO BE TESTED 

3 9 SETUP "LASTFL" AND "LASTBK" INCASE OPERATOR SELECTS ' 

4 ( SETUP THE MAX. NUMBER OF RETRYS FOR READS AND WRITES 

SETUP TO START WITH A "FORMAT " PASS 

CLEAR THE PASS COUNTER 



READONLY" PASS 



5 9 
6, 



MOV 


#$lTtMB,RB 


MOV 


f JB0DAT-SITEMB/2,R1 


JSR 


PC,»*CLEAR 


MOV 


SSQFTNM, R0 


MOV 


*LASTFL-SQFTNM/2,R1 


JSR 


PC,#»CLEAR 


MOV 


0#DRVPNT»R1 


M0V8 


CRi)*,K0 


ASR 


R0 


BIC 


*"CBXTti0 f Rti 


MOVB 


R0» MPARMBX*! 


TSTB 


IRD 


BNE 


2S 


MOV 


*ORVKEY,Rl 


MOV 


Rl,9>»DNVPNT 


MOV 


#9,,»#LASTFL 


MOV 


»15»#S»#LASTBK 


MOV 


8>#MAXRDS»**RDTRYS 


MOV 


##MAXEKR#P#WRTRY5 


MOV 


#FORPAS,MPSCNTL 


CLP. 


P#PSCNTL*2 


CLR 


##PA5CNT 


BR 


LOOPtR 


CLR 


IR0J* 


DEC 


Rl 


BGT 


CLEAR 


RTS 


PC 



/CLEAR VARIABLE STORAGE AREA 
/ CLEAR AREA 



/ GET DRIVE POINTER 
/SETUP THE DRIVE 



/END OF DRIVE TABLE? 

/BR IF NO 

/ RESET DRIVE TABLE POINTER 

/RESTORE THE DRIVE POINTER 

/ SET "LAST FILE" & "LAST BLOCK" INCASE 

/ OPERATOR SELECTS "READONLY" PASS 

/SETUP MAX t # OF REREAD TRY3 

/SETUP MAX, # OF REWRITE TRYS 

/DO A FORMAT PASS 



/CLEAR THE PASS COUNT 
/ GET AROUND CLEAR 



TA11 DATA RELIABILITY 



Dlf AtC g 


PI 1 1 


»MAR-»77 


14S52 


755 








736 








737 








758 








759 








7bf 








"l 








7&2 








763 








It» 








7o5 








766 








I 








768 
















' - 








77 1 








772 








r ' J 








774 


_ 

002774 


1 17737 


176140 


775 


vUJvwC 


1 42737 


177574 


776 


naval n 
00 £0 1 


100432 




777 




023777 


IOB 1 (COS 


776 


\Svioe\o 






779 


003022 




00 1 266 




003026 


062737 


151 a ffl 01 9 
0000I0C 




003034 


005237 


00 1 272 


732 




g23727 


00 1 270 


783 




00 1 36 1 




784 


0i0 JlD 


012737 


00 1274 


785 




005037 


001272 


I °t> 


003062 


000753 




78? 


08 S0»9 




act 1 sfcfc 


788 


00 J0 ' 


013737 


001272 


789 


fit 01 1017 £. 
0030 f 






790 


003076 


0030<«O 




f ~ I 


moil 1 Ola 
BIO J 1 100 


1 if xi 


__ 

Bell 


792 


soil i ft n 

003 1 0*} 






793 


Hal's t a& 
00a 1 0O 






794 




062607 




795 


003112 


000137 


003132 


796 


003116 


000137 


003562 


797 


003122 




0041 36 


798 


003126 


000137 


003562 


799 








800 
801 








802 









MAINDEt»ll-DZTAE-C MAC Y 1 1 27(1006) 17-MAR-77 14555 

GET VALUE FOR SOFTWARfc SWITCH REGISTER 



si**************************** 
/ft************************************************************** 

I. CHECK SWR*7» 

A, SWR<7>*i PfcKFURM AS PER 5WR«1 |0> 

1, 00af>QRMAT PA5S 

2, 01 ffl N£A0 ONLY PASS 

3, 10«WRITE ONLY PASS 

4, UsHEAO ONLY PASS 



001172 
001172 



176250 IS! 

001270 
001304 

001270 

2SS 

001172 



SWR<7>«0 



UPDATE PASCNT 
PfcRS'QRM AS PER CPSCNTL + 2) 
A « FORMAT 

B. READONLY 

C. WRITEONLY 
D» READONLY 



>**< 
LOOPER: 



MOVB 


»SWR|P#STMP0 


1 IF 3WR«7>sl | DO PER SNR* 1 8 0> 


BICB 


»~C<BIT07 J»IT0UBIT00> 


MSTMP0 


BMI 


iS 


1 BR IF SWK<7>»1 


CMP 


»#PA3CNT,#P5CNTL 


IIS THE COUNTER AT MAX,? 


BLT 


2$ 


I BR IF NO 


CLR 


MPASCNT 


I RESET THE COUNTER 


ADD 


»2,»8PSCNTL 


IMOVE TO THE NEXT PASS TYPE 


INC 


##PSLNTL*2 




CMP 


#tPSLNTL##HDcPAS+2 


1 TIME TO RESET PASS TYPE? 


BNE 


IS 


1 BR IF NO 


MOV 


a>FORHAS,e#PSCNTL 


JYES»»«»RE3ET THE PASS CONTROL 


CLR 


##PSLNTL+2 




BR 


1$ 


/GO CHECK THE COUNT 


INC 


9#PASCNT 


JCOUNT THIS PASS 


MOV 


P#PStNTL*2f ##STMP0 


IPICKUP THE TYPE OF PASS TO DO 


CLR 


»(SP) 




MOVB 


f>#STMP0, (SP) 


IPICKUP THE DISPATCH INDEX 


ASL8 


(SP) 


IPOSITION THE INDEX 


ASLB 


(SP) 


1 BEFORE USING IT 


ADD 


(SP)*,PC 


IGO TO THt ROUTINE 


JMP 


##FOKMAT 




JMP 


p#readunly 




JMP 


MWRlTtONLY 




JMP 


mreadunly 





;////////////////////////////////////////////////////////////////////// 
t ////////////////////////////////////////////////////////////////////// 



TAll DATA RELIABILITY 



D2TAECP11 


17*MAR«77 


14152 


303 








304 








805 








806 








807 








80S 








809 








810 








811 








812 








313 








814 








815 








816 








817 








818 








819 








320 








821 








822 








823 








824 








825 








826 








827 








328 








829 








330 








831 








832 








833 








834 








835 








836 








837 








838 








339 








340 


003132 


012737 


003132 


84| 


003140 


104401 


013246 


842 


003144 


004737 


007564 


843 


003150 


104401 


001203 


844 


003154 


012737 




8«5 


003156 


000 


377 


846 


003160 


001306 




8*7 


003162 


012737 




343 


003164 


000 


377 


849 


003166 


001304 




350 








851 








852 








853 


003170 


012700 


001612 


854 


003174 


004737 


006756 


855 


003200 


103737 


001612 


356 


003204 


001775 




857 


003206 


100022 




058 


003210 


004037 


005536 
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1 ////////////////////////////////////////////////////////////////////// 
I////////////////////////////////////////////////////////////////////// 
1 ////////////////////////////////////////////////////////////////////// 

I //////////////////////////////////////////////////////////// ////////// 



•SBTTL 



"FORMAT" ROUTINE 



J*************************************************************** 

THIS ROUTINE PERFORMS THE FOLLOWING SEQUENCE 

1, REWIND TO BUT 

2, WRITE FILE GAP 

3, write block of data 

4, back block gap 

5, read block uf oat a 
6* check for sync error 

7, check for data error 

a, data error occurred 

1 , j (rdtry5) < (maxrds) goto 4, 
2 * } (rdtrysj ■ (maxrds) 

a.) (wrtrys)<(maxerr) 

1. ) BACK BLOCK GAP 

2. ) GOTO 3, 

8*3 (WRTRYS) "(MAXERR) GOTO SEOP 
B 9 NU DATA ERROR GOTO 8, 

8, UPDATE THt BLOCK NUMBER 

9, END OF FILE? 

A e NU GOTO 3 9 

B e YES 

1.) UPDATE FILE NUMBER 

2 f ) RESET BLOCK NUMBER TO 
3,) SOTO 2 9 



FORMAT! MOV 
TYPE 
JSR 
TYPE 
MOV 
.BYTE 
.WORD 
MOV 
.BYTE 
s WORD 



8F0RMAT, f #SLPAOR 

,MSG11 

PC,*#TPDRV 

, SCRLF 

(PC)*,»(PC)* 
0,377 

BLOCK 

(PC)*,#(PC)+ 
0,37/ 
FILE 



ISETUP SCOPE LOOP ADDRESS 
|"«** FORMAT ***" 
I GO TYPE THE DRIVE 

I INITIALIZE THE BLOCK NUMBER 

ISET BYTE TO S3 AND BYTE 1 

ITO THE l r S COMP. OF BYTE 

UNITIALIZE THE FILE NUMBER 

I SET BYTE TO AND BYTE 1 

|T0 THE I'S COMP, OF BYTE 



1 ////////////////////////////////////////////////////////////////////// 
I "REWIND" TO "BUT" 

1 ////////////////////////////////////////////////////////////////////// 



MOV 

JSR 

TSTB 

BEQ 

BPL 

JSR 



#PARMBK,R0 
PC,**REWIND 

f #P AHMBK 

IS 

43 

R0,»#CSRERR 



IR081ST ADDRESS OF PARAMETER BLOCK 
IGO TO REWIND 
IWAIT ON FLAG 

I BR IF NO ERROR 

I GO TO CSR ERROR CHECK 



TA11 DATA RELIABILITY 


MA1NDEC 


*-ll«DZTAE«"C 


MACYH 


27Cii0*}bJ 17»MAR<-77 


14155 PAGE 21 


DZTAfcC.Pll 


17»MAR«.77 


14S52 




"FORMAT" ROUTINE 




859 


003214 


0001 37 


004412 




JMP 


0#$EUP 


IGO TO END OF PROGRAM 


860 








I////////////////////////////////////////////////////////////////////// 


861 








1 


"WRITE 


-FILL-lfAH" 




862 








1////////////////////////////////////////////////////////////////////// 


863 


003220 






2SI 








864 


003220 


012700 


001612 




MOV 


*PARMBK,R0 


|R0»1ST ADDRESS OF PARAMETER BLOCK 


865 


003224 


004737 


006722 




JSR 


PC, ##WFG 


1 GO TO WFG 


866 


003230 


105737 


001612 


3SI 


TSTB 


##P AHMBK 


? WAIT ON FLAG 


867 


003234 


001775 






BEQ 


3$ 




868 


003236 


100006 






BPL 


4$ 


1 BR IF NO ERROR 


869 


0032«0 


004037 


005536 




JSR 


R0,*»CSRERR 


1 GO TO CSR ERROR CHECK 


370 


003244 


000137 


004412 




JMP 


»*SEUP 


1 GO TO END OF PROGRAM 


en 


003250 


0001 37 


004364 




JMP 


•#C«tQTS 




872 








1 ////////////////////////////////////////////////////////////////////// 


873 








1 


"WRITE 


* A BLUCK OF DATA 




87« 








1 ////////////////////////////////////////////////////////////////////// 


875 


003254 


012737 


003262 


001106 4SS 


MOV 


#5S,##»LPADR 


I SETUP SCOPE LOOP ADDRESS 


876 


003262 


004737 


006072 


5s; 


JSR 


PC,»*SfcTUPW 


1 GO SETUP FOR A WRITE 


877 


003266 


012700 


001612 




MOV 


#P ARMBK i W0 


IR0«1ST ADDRESS OF PARAMETER BLOCK 


878 


003272 


004737 


006726 




JSR 


PC,**WKITfc 


IGO TO WRITE 


879 


003276 


105737 


001612 


631 


TSTB 


#*PAKMBK 


IWAIT ON FLAG 


880 


003302 


001775 






9EQ 


6$ 




881 


003304 


100006 






BPL 


7S 


1 BR IF NO ERROR 


882 


003306 


004037 


005536 




JSR 


R0,»*CSRERR 


IGO TO CSR ERROR CHECK 


863 


003312 


000137 


004412 




JMP 


»*SEUP 


1 GO TO END OF PROGRAM 


884 


003316 


000137 


00«364 




JMP 


0#CKtOTS 




885 








w/ /////////////////////////////////////////////// ///////////////////// 


886 








1 


"BACK" 


SPACE»BLUCK-GAP W 




887 








i ////////////////////////////////////////////////////////////////////// 


888 


003322 






7SI 








889 


003322 


012700 


001612 




MOV 


#P ARMBK t R0 


IR0B1ST ADDRESS OF PARAMETER BLOCK 


890 


003326 


004737 


006742 




JSR 


PC, #»BSBG 


1 GO TO SSBG 


89| 


003332 


105737 


001612 


Si! 


TSTB 


MPAKMdK 


IWAIT ON FLAG 


892 


003336 


001775 






BEQ 


as 




893 


003340 


100004 






BPL 


9S 


1 BR IF NO ERROR 


894 


003342 


004037 


005536 




JSR 


R0,##CSRERR 


1 GO TO CSR ERROR CHECK 


895 


003346 


000137 


004412 




JMP 


•#SEUP 


IGO TO END OF PROGRAM 


896 








1////////////////////////////////////////////////////////////////////// 


897 








f 


"READ" 


A BLOCK OF DATA 




898 








1////////////////////////////////////////////////////////////////////// 


899 


003352 


004737 


006220 


951 


JSR 


PC,#*StTUPR 


IGO SETUP FOR A READ 


900 


003356 


012700 


001612 




MOV 


#PARMBK,K0 


! R0* 1 ST ADDRESS OF PARAMETER BLOCK 


901 


003362 


004737 


006732 




JSR 


PC,»*RfcAD 


IGO TO READ 


902 


003366 


105737 


001612 


10*1 


TSTB 


MP AKMBK 


IWAIT ON FLAG 


903 


003372 


001775 






BEQ 


10$ 




904 


003374 


100004 






BPL 


US 


IBR IF NO ERROR 


905 


003376 


004037 


005536 




JSR 


R0,»*C3RERK 


1 GO TO CSR ERROR CHECK 


906 


003402 


000137 


004412 




JMP 


0#SEUP 






003406 


000004 




11§! 


SCOPE 






908 








1 /////////////////////////////////////////////////////////// /////////// 


909 








1 


CHECK 


FOR SYNC ERROR 




910 








{////////////////////////////////////////////////////////////////////// 


9U 


003410 


004737 


006254 




JSR 


PC,M5YNCK 


ISYNC ERROR? 


912 


003414 


000403 






BR 


12S 


1 RETURN HERE IF NO 


913 


003416 


104002 






ERROR 


2 


ISYNC ERROR 


914 


003420 


000137 


004412 




JMP 


PMfcUP 
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DZTAEC.P11 


17»MAR«77 


14552 




"FORMAT 


• ROUTINE 




915 










1 //////////////////'/////////////////////////////////////////////////// 


916 










1 CHECK FOR DATA ERROR IF SOFT 


REREAD 


917 










1 ////////////////////////////////////////////////////////////////////// 


918 


003424 


004737 


000356 




123: JSR 


PC,MDATCMP 


ICHECK THE DATA 


919 


003430 


000430 






BR 


15S 


IRETURN HERE IF DATA IS GOOD 


920 


003132 


104001 






ERROR 


I 


IDATA ERRUR 


921 


003434 


004037 


006550 




JSR 


R0,##CNT3FT 


ICOUNT SOFT ERROR 


922 


003440 


000730 






BR 


7$ 


IGO REREAD 


923 


003442 


004037 


006606 




JSR 


R0,**CNTHRD 


ICOUNT HARD ERROR 


924 


003446 


000402 






BR 


13$ 


1 REWRITE 


925 


003450 


000137 


004412 




JMP 


»*SEUP 


ITO MANY HARD ERRORS 


926 










1 ////////////////////////////////////////////////////////////////////// 


927 










1 IF HARD 


ERROR REWRITE 




928 










I ////////////////////////////////////////////////////////////////////// 


929 


003454 


005337 


001226 




13S* DEC 


#*WRTRYS 


1 TRY TO REWRITE THIS BLOCK? 


930 


003460 


002414 






BLT 


15S 


IBR IF NO 


931 


003462 


012700 


001612 




MOV 


»PARMBK,R0 


JR0I18T ADDRESS OF PARAMETER BLOCK 


932 


003466 


004737 


006742 




JSR 


PC,0»B5BG 


IGO TO BSBG 


933 


003472 


105737 


001612 




14S? TSTB 


##P AKMBK 


IWAIT ON FLAG 


934 


003476 


001775 






BEQ 


14S 




935 


003500 


100265 






BPL 


4$ 


IGO START A WRITE IF NO ERROR 


936 


003502 


004037 


005536 




JSR 


R0,*#CSRERR 


IGO TO CSR ERROR CHECK 


937 


003506 


000137 


004412 




JMP 


P#$EQP 




938 


003512 


013737 


001260 


001224 


1581 MOV 


t«MAXRDS,f#RDTRYS 


IRESET THE REREAD COUNT 


939 


003520 


013737 


001262 


001226 


MOV 


MMAXEKR,MWRTRYS 


IRESET THE REWRITE COUNT 


940 










1 ////////////////////////////////////////////////////////////////////// 


941 










1 UPDATE 


BLOCK 9 i FILE # 




942 










1////////////////////////////////////////////////////////////////////// 


943 


003526 


062737 






ADD 


(PC)*,*CPCJ* 


1 INCREMENT THE BLOCK NUMBER 


944 


003530 


001 


377 




.BYTE 


l,«l 




945 


003532 


001306 






.WORD 


BLOCK 




946 


003534 


123737 


001310 


001306 


CMPB 


f #FlLESZ,»*BLOCK 


1 TIME FOR A FILE GAP? 


9«7 


003542 


003244 






BGT 


4$ 


IBR IF NO— GO START A WRITE 


948 


003544 


062737 






ADD 


(PCJ*,»CPCJ* 


1 INCREMENT THE FILE NUMBER 


949 


003546 


001 


377 




.BYTE 






950 


003550 


001304 






.WORD 


FILE 




951 


303552 


012737 






MOV 


CPC)*,»CPCJ+ 


UNITIALIZE THE BLOCK NUMBER 


952 


003554 


000 


377 




aBVTE 


0,377 


ISET BYTE TO AND BYTE 1 


953 


003556 


001306 






.WORD 


BLOCK 


ITO THE I'S COMP, OF BYTE 


954 


003560 


000617 






BR 


2$ 


IGO WRITE FILE GAP 
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935 
956 
95? 
958 
959 
960 
96| 
962 
963 
964 
965 
966 
96? 
96S 
969 
970 
97i 
973 
973 
974 
975 
976 
977 
978 
979 
960 
98J 
982 
983 
964 
985 
986 
98? 
988 
989 
990 
991 
992 
993 
994 
995 
996 
99? 
998 
999 
1000 

1001 
1092 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 



////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 

SBTTL "READ ONLY" ROUTINE 

THIS ROUTINE PERFORMS THE FOLLOWING SEQUENCE 

1, REWIND TO BUT 

2, READ BLOCK UF OAT A 

3, CHECK FOR SYNC ERROR 

4, CHECK FOR DATA ERROR 

A 9 DATA ERROR OCCURRED 

l„) CRDTRYSJ«CMAXRDS) 

A,) BACK BLOCK GAP 
BJ GOTO 2, 
£ 9 ) IRDTRYS)*(MAXRD5) 

A,) CWRTRY8J<CMAXERR) GOTO 5, 
B»J CwRTRYSJ-CMAXtRR) GOTO SEOP 
B 8 NU DATA ERROR GOTO 5, 

5, UPDATE THfc BLOCK NUMBER 
6 9 END OF FILE? 

A, NU — GOTO 2 B 
B e YES 

iJ UPDATE FILE NUMBER 
it) RESET BLOCK NUMBER TO 
3») SPACE FORWARD FILE GAP 
4, ) GOTO 2, 



003562 
003562 
003570 
003574 
003600 
003604 
003606 
003610 
003612 
003614 
003616 



003620 
003624 
003630 
003634 
003636 
003640 
003644 



012737 003562 001106 

104401 013265 

004737 007564 

104401 001203 
012737 



377 



001306 
012737 



READONLY I 

MOV 

TYPE 

JSR 

TYPE 

MOV 

» BYTE 

• WORD 

MOV 

bBYTE 

.WORD 



•READONLY, ##SLPADR 
,MSG12 
PC»»#TPDRV 
,SC»LF 

CPCi*,«»(PCJ* 

0,377 

BLOCK 

IPCJ*,»CPCJ+ 

0,371 

FILE 



I SETUP SCOPE LOOP ADDRESS 
|«*** MEAD 

IGO TYPE DRIVE TO BE TE5TE0 

UNITIALIZE THE BLOCK NUMBER 

ISET BYTE TO AND BYTE 1 

|TO THE 1'S COMP, OF BYTE 

UNITIALIZE THE FILE NUMBER 

ISET BYTE TO AND BYTE I 

?TO THE l r S COMP, OF BYTE 



012700 001612 

004737 006756 

103737 001612 
001775 
100004 

004037 005536 

000137 004412 



I ////////////////////////////////////////////////////////////////////// 
I "REWIND" TO "BUT" 

I////////////////////////////////////////////////////////////////////// 



MOV 

JSR 

TSTB 

BEG 

BPL 

JSR 

JMP 



»PARMBK,RB 

PC,»»REWIND 

MPAKMBK 

IS 

2S 

R0,MCSRfcRK 

#SSEOP 



IR0I1ST ADDRESS OF PARAMETER BLOCK 
I GO TO REWIND 
IWAIT ON FLAG 

IBR IF NO ERROR 
760 TO CSR ERROR CHECK 
IGO TO ENO-OP-PRQGRAM 



I////////////////////////////////////////////////////////////////////// 
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1011 










1 


SETUP 


FOR "READ" 




1012 










1 ////////////////////////////////////////////////////////////////////// 


1013 


003650 


004737 


006220 




2S3 


JSR 


PC,»*StTUPR 


1 SETUP FOR "READ" 


1014 


003654 


000417 








BR 


S$ 


IGO START A READ 


1015 










t /////////////////////////////////////////////////////////// /////////// 


1016 










1 


"BSBG 


" — IF SCOPE OR SOFT DATA ERROR 


1017 










1 ////////////////////////////////////////////////////////////////////// 


101S 


003656 


012737 


003714 


001106 


3S> 


MOV 


#5J,MSLPAUR 


ISETUP THfc SCOPE LOOP ADDRESS 


1019 


003664 


012700 


001612 






MOV 


9PARMBK,R0 


IR0«1ST ADDRESS OF PARAMETER BLOCK 


1020 


003670 


004737 


006742 






JSR 


PC,**BSBG 


IGO TO BSBG 


1021 


003674 


105737 


001612 




4$: 


TSTB 


##PARMBK 


IWAIT ON FLAG 


1022 


003700 


001775 








SEQ 


4$ 




1023 


003702 


100004 








BPL 


S$ 


IGO TRY TO REREAD 


1024 


003704 


004037 


003536 






JSR 


R0,»*C8RERK 


IGO CHECK CSR ERROR 


1025 


003710 


000137 


004412 






JMP 


MSEUP 


1 GO TO END*OF "PROGRAM 


1026 










f /////////////////////////////////////////////////////////////// /////// 


1027 










1 


"READ 


" BLOC* OF DATA 




1028 










1////////////////////////////////////////////////////////////////////// 


1019 


003714 


012737 


003656 


001106 


SSI 


MOV 


»3$i S>#SLPAOR 


ISET THE LOOP ADDRESS 


1030 


003722 


012700 


001612 






MOV 


#PARMBK,R0 


f R0«1ST ADDRESS OF PARAMETER BLOCK 


1031 


003726 


004737 


006732 






JSR 


PC,**RtAD 


IGO TO READ 


1032 


003732 


105737 


001612 




6$: 


TSTB 


MPAXMBK 


IWAIT ON FLAG 


1033 


003736 


001775 








BEG 


65 




1034 


003740 


100004 








BPL 


7$ 


IBR IF NO ERROR 


1035 


003742 


004037 


005536 






JSR 


R0,S>*C»RERR 


IGO TO CSR ERROR CHECK 


1036 


003746 


000137 


004412 






JMP 


MSEUP 


IGO TO END«OF "PROGRAM 


1037 










1////////////////////////////////////////////////////////////////////// 


1038 










1 


CHICK 


FOR SYNC ERROR 




1039 










1 ////////////////////////////////////////////////////////////////////// 


1040 


0037S2 


004737 


006254 




731 


JSR 


PC,»#SYNCK 


IGO CHECK FOR SYNC ERROR 


10*1 


003756 


000403 








BR 


8$ 


1 RETURN HERE IF NO ERROR 


10«2 


003760 


104002 








ERROR 


2 


ISYNC ERROR 


10^3 


003762 


000137 


004412 






JMP 


f#$£UP 


IGO TO END*OF "PROGRAM 


1044 










1 /////////////////////////////////////////////////////////////// /////// 


1045 












CHECK 


FOR DATA ERROR 




1046 










1 ////////////////////////////////////// //////////////////////////////// 


1047 


003766 


004737 


006356 




!$S 


JSR 


PC,0#DATCMP 


IGO CHECK THE DATA 


1048 


003772 


000411 








BR 


9S 


IRETURN HERE IF NO ERROR 


1049 


003774 


104001 








ERROR 


1 


IDATA ERROR 


1050 


003776 


004037 


006550 






JSR 


R0,##CNTSFT 


ICOUNT SOFT ERROR 


1051 


004002 


000725 








BR 


3$ 


ITRY TO REREAD 


1052 


004004 


004037 


006606 






JSR 


R0,*#CNTHKQ 


1 COUNT HARD ERROR 


1053 


§04010 


000402 








BR 


98 


IMOVE TO NEXT BLOCK 


1054 


004012 


000137 


004412 






JMP 


*#3SEUP 


ITO MANY HARD ERRORS 


1055 


004016 


000004 






9$l 


SCOPE 






1056 










}////////////////////////////////////////////////////////////////////// 


1057 










1 


IF LAST FILE OF LAST BLOCK 


GOTO CKEOTS 


1058 










1 /'////////////////'/////////////////////////////////////////////////// 


1059 


004020 


013737 


001260 


001224 




MOV 


•*MAXRD5,#iRDTRYS 


IRESET THfc REREAD TRYS 


1060 


004026 


123737 


001236 


001304 




CMPB 


• #L ASTf L , »#F 1LE 


ILAST FILE 


1061 


004034 


003007 








BGT 


10S 


IBR IF NO 


1062 


004036 


123737 


001234 


001306 




CMPB 


##LASTbK,P#BLOCK 


ILAST BLOCK 


1063 


004044 


003003 








BGT 


10S 


IBR IF NO 


1064 


004046 


005237 


001212 






INC 


#«EOTS 


ICOUNT END"OF-TAPE 


1065 


004052 


000544 








BR 


CKEOTS 


ICHECK FOR END»OP»PASS 


1066 










1 /////////////////////////////////////////////////// /////////////////// 
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1067 








1008 








1069 


004054 






1070 


004054 


062737 




1071 


004056 


001 


377 


1072 


004060 


001306 




1073 


004062 


123737 


001310 


1074 


004070 


003267 




1075 


004072 


062737 




1076 


004074 


001 


377 


1077 


004076 


001304 




1078 


004100 


012737 




1079 
1080 


004102 
004104 


000 
001306 


377 


1081 








1082 








1083 








108a 


004106 


012700 


001612 


1085 


004112 


004737 


006746 


1086 


004116 


105737 


001612 


1087 


004122 


001775 




1088 


004124 


100251 




1089 


004126 


004037 


005536 


1090 


004132 


000137 


004412 


109| 









I UPDATE BLOCK # & FILE # 

J////////////////////////////////////////////////////////////////////// 

10S: 



ADO 
aBYTE 

.WORD 

CMPB 

BGT 

ADD 

9 BYTE 

, WORD 

MOV 

.BYTE 

9 WORD 



tPC)*,«»(PCJ* 

1,«1 

BLOCK 

*>#FILESZ,»#BL0CK 

2$ 

FIL6 

13,37/ 
BLOCK 



/INCREMENT THE BLOCK NUMBER 



I TIME FOR A FILE GAP? 
IBR IP NO 

I INCREMENT THE FILE NUMBER 



I INITIALIZE THE BLOCK NUMBER 
J SET BYTE TO AND BYTE I 
ITO THE I'S COMP. OF BYTE 



I ////////////////////////////////////////////////////////////////////// 

; H SPACE«FORWAKD*FJLE»GAP M 

I////////////////////////////////////////////////////////////////////// 



MOV 

JSR 

TSTB 

BEG 

BPL 

JSR 

JMP 



f P ARMBK , R0 

PC,0*5FF6 

##P AKMBK 

HS 

2S 

R0,*»CSRfcKK 

f#SfcUP 



;R0>1ST ADDRESS OP PARAMETER BLOCK 
IGO TO SFFG 
I WAIT ON FLAG 

IGO READ 

igo check csr error 
igq to end*qf«-prqgram 
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1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 

U01 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
H35 
1136 
1137 
1138 
1139 
11«0 
1H1 
1142 
1143 
11«4 
1145 
1146 
11«7 



004136 
004136 
004144 
004150 
004154 
004160 
004162 
004164 
004166 
004170 
004172 



004174 
004200 
004204 
004210 
004212 
004214 
004220 



004224 
004224 
004230 
004234 
004240 
004242 
004244 



012737 
104401 
004737 
104401 
012737 
000 
001306 
012737 



012700 
004737 
105737 
001775 
100022 
004037 
000137 



012700 
004737 
105737 
001775 

100006 
004037 



;////////////////////////////////////////////////////////////////////// 
i////////////////////////////////////////////////////////////////////// 
I////////////////////////////////////////////////////////////////////// 
I////////////////////////////////////////////////////////////////////// 



.SBTTL 



"WRITE ONLY" ROUTINE 



*************************************** 



I THIS ROUTINE PERFORMS THE FOLLOWING SEQUENCE 
I 

1, REWIND TO BUT 

2, WRITE FILE UAP 
3 e WRITE BLOCK OF DATA 

4, UPOATt THE BLOCK NUMBER 

5. END OF FILE'/ 
A e NU mmm QOTQ 3 S 
ti, YES 



I ,J UPDATE FILE NUMBER 

2,} RESET BLOCK NUMBER TO 

3,3 GOTO 2, 



004136 
013304 
007564 
001203 

377 



001612 
006756 
001612 



005536 
004412 



0016S2 
006722 
001612 



WRITEONLYJ 
MOV 
TYPE 
JSR 
TYPE 
MOV 
.BYTE 
.WORD 
MOV 
.BYTE 
„ WORD 



#WRIT£UNLY,MSLPADR 

rMSGli 

PC,»*TPORV 

,SC«LF 

CPCJ*,»CPC)+ 

0,37/ 
BLOCK 

(PCJ*,»CPC3* 

0,37/ 
FlLfe 



I SETUP SCOPE LOOP ADDRESS 

I"*** WRITE ft**" 

I TYPE DRIVE TO BE TESTED 

I INITIALIZE THE BLOCK NUMBER 

I8ET BYTE TO AND BYTE 1 

ITO THE I'S COMP, OF BYTE 

I INITIALIZE THE FILE NUMBER 

ISET BYTE TO AND BYTE 1 

I TO THE I'S COMP, OF BYTE 



?////////////////////////////////////////////////////////////////////// 

I "REWIND" TO "BUT" 

I ////////////////////////////////////////////////////////////////////// 



|R0»1ST ADDRESS OF PARAMETER BLOCK 
I GO TO REWIND 
I WAIT ON FLAG 



#PA«MBK,R0 
PC,MRtWIND 
1SI TSTB ##P AKMbK 

li 

4S |BR IF NO ERROR 

RB.MCSRfcKR IGO TO CSR ERROR CHECK 

S»#SEUP IGO TO END-OF-PRQGRAM 

I////////////////////////////////////////////////////////////////////// 

I "WRITE-FILE'GAP" 

I////////////////////////////////////////////////////////////////////// 

2$I 

#PARMBK,H0 I R0* 1 ST ADDRESS OF PARAMETER BLOCK 

PC,#*WFG I GO TO WFG 

351 TSTB »»PAKMBK /WAIT ON FLAG 

35 

4$ | BR IF NO ERROR 

R0,MCSRERH IGO TO CSR ERROR CHECK 



MOV 

JSR 

TSTB 

BEQ 

BPL 

JSR 

JMP 



MOV 
JSR 
TSTB 

BEQ 
BPL 
JSR 



T A H DATA RELIABILITY MAINDEC»i 1-DZTAE-C MACY11 27 (l*Jlo6j 17-MAR-77 U:55 PAGE 37 

DZTAtC.Pil 17-MAR-77 14152 "WRITE ONLY" ROUTINE 



lias 


004250 


0001 37 


004412 




JMP 


983EUP 


/go to end-of-program 


j j a g 


009254 


000 137 


004364 




JMP 


MCKfcQTS 




j J 50 








1 ////////////////////////////////////////////////////////////////////// 


||5 j 








1 


"WRITE 


" A BLUCH OF DATA 




1 1 52 








;////////////////////////////////////////////////////////////////////// 


1 i 53 




0047 3 7 


aae«a7 3 
WW 010 i c 


4ii 


JSR 


PC,«»SS6TUPW 


|G0 SETUP FOR "WRITE" 


1 1 la 




012737 


an <i s 7 3 act t inc. 

0tfl*»E ' C 1010 1100 




MOV 


»5Si >#»LPADR 


/SETUP SCOPE LOOP ADDRESS 


I j 55 


004272 






SSI 








1 |S6 




u 1 c r Kilo 


... .. 




MOV 


#PARMBK,R0 


;R0«1ST ADDRESS OF PARAMETER BLOCK 


I j 57 


004276 


004737 


SeDfcO 




JSR 


PC, MWKITfc 


/GO TO WRITE 








v9 10 isle 


b$l 


TSTB 


•#P AKMBK 


? WAIT ON P1.AG 


1 1 58 


0B*t jwo 


001775 






SEQ 


6S 


1 160 




i BvBBo 






SPL 


75 


;br if no error 


| 


00431 2 


004037 


005536 




JSR 


R0,#&CSRfcKK 


;go to csk error check 


1 1&2 


004316 


000 1 37 


0044 1 2 




JMP 


MSEUP 


/ GO TO END-OF-PROGRAM 


1 1&3 


004322 


000 137 


004364 




JMP 


##CKtOTS 






004326 






7SI 


SCOPE 






1 1&5 








1 /////////////////////////////////////////////////////////////// /////// 


i i &6 










UPDATE 


BLOCK # & FILE & 




1 1 57 








I ////////////////////////////////////////////////////////////////////// 


U63 


004330 


062737 






ADD 


IPC)*, S»CPC)* 


1 INCREMENT THE BLOCK NUMBER 


1 1&9 


004332 


001 


377 




a BYTE 


1,-1 




| j 70 


004334 


wf * 3*Jv 






« WORD 


BLOCK 




J IJ i 


004336 


123737 


001310 001306 




CMPB 


P#FlLEBZ,**BLOCK 


I TIME FOR A FILE GAP? 


1 1 72 


004344 


003345 






BGT 


as 


/ BR IF NO 


1 173 


004346 


062737 






ADD 


CPCJ *, •• CPC3 ♦ 


J INCREMENT THE FILE NUMBER 


1 1 7 4 


004350 




377 




S BYTE 


l,»l 




1 175 


004352 


001304 






B WORD 


FILE 




U76 


004354 


012737 






MOV 


IPCJ*,«»CPC3* 


UNITIALIZE THE BLOCK NUMBER 


U77 


004356 


000 


377 




.BYTE 


0,377 


ISET BYTE TO AND BYTE I 


H78 


004360 


001306 






.WORD 


BLOCK 


/TO THE 1'S COMP. OF BYTE 


1179 


004362 


000720 






BR 


2$ 


J ST ART A FILE GAP 
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1180 
1181 

1182 
1183 
U84 
1185 
U86 
1187 
U83 
1189 
1190 
ii^i 
U92 
1193 
1194 
1195 
1196 
1197 
1198 
U99 

1200 004364 000004 

1201 004366 023737 

1202 004374 002006 

1203 004376 032777 

1204 004404 001002 
1203 004406 000137 
1206 



001212 001264 
000400 174534 



I////////////////////////////////////////////////////////////////////// 
1 /////////////////////////////////////////// /////////////////////////// 

« SBTTL CHECK "EOTS" 

J } t»**ft*«*«A*«*ft<k**fi«rfti»»*******»****ft*******a*^*ftA*^***S(«*** ****** 

/WHEN A "FORMAT" OR "WRI TtONLY " PASS HITS "EOT" OR A 
/ "READONLY" PASS REAUS THE LAST BLOCK OF THE LAST FILE 
I THE Y WILL COME HERE 
I 

I U (EOTSJ IS CHECKED 

/ A, CfcQTSJ-lMAXEOT) GOTO SEOP 

I 8, ltOTSJ<CMAX£OT3 GOTO 2 

I 2, SWR'SSf « 17 

1 A, YtS »« GOTO SEOP 

I B, NU GOTO LOOPER 

I 

CKEOTSI SCOPE 

CMP ##EOTS,#»MAXEOT /MAX, EOTS OCCURRED? 

BGE *EOP I BR IF YES 

BIT *SW0B,»SWR J IF SWK<0fl> « | 

BNE SEOP JGOTO END«OF *TEST 

JMP MLOUPfcR |N0 — LOOP 
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1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 

122a 

1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 



004412 
004412 
004414 



004424 
004432 
004434 
004436 
004440 
004442 



004446 
004452 
004456 
004462 
004464 



•sbttl end of pass koutine 

* increment the pass number cspassj 
•type "end pass" 
*if theres a monitok go to it 
uf there isn't jump to start 

*if it is desired tu have a bell indicate the "end of pass" location 
*sendmg can bt changeu to 7. 

SEOPI 



005067 174462 

005267 174454 

042767 100000 174446 
005327 



00a745 
004742 
000042 



003137 
012737 
000001 
004434 
104401 
104401 
013700 
001525 



SCOPE 
CLR 
INC 
BIC 
DEC 

SEQPCTS t WORD 
BGT 
MOV 

SENDCT J .WORD 

SEOPCT 
TYPE 
TYPE 
SGET42I MOV 
BEQ 
SCOPE 

}////////////////////////////////////////////////////////////////////// 
/ TYPE END-OF-TEST STATISTICS 

f ////////////////////////////////////////////////////////////////////// 



STSTNM 
SPAS5 

$l00yuid,sPASS 

tPO* 

1 

SDOAbN 

CPC)*,»CPCJ+ 

I 

, SENUMb 
#SENULL 
H»42rR0 
SDOAbN 



/ / ZERO THE TEST NUMBER 

/ / INCREMENT THE PASS NUMBER 

//DON'T ALLOW A NfcG, NUMBER 

//LOOP? 

IIYES 

/ 1 RESTORE COUNTER 



/ | TYPE "END PASS" 
/ 1 TYPE A NULL CHAKACTER 
//GET MONITOR ADDRESS 
1 / BRANCH IF NO MONITOR 



004466 


012700 


001612 


MOV 


#PARMBR,R0 


/R0"PAKAMETER BLOCK ADDRESS 


004472 


004737 


006756 


JSR 


PC,*»RfcWlND 


I START A REWIND 


004476 


104401 


013031 


TYPE 


»M3Gl 


MCRLF>"*** END-OF-TEST 


004502 


104401 


013056 


TYPE 


,MSG2 


;<CRLF>"SOFT ERRORS" " 


004506 


013746 


001206 


MOV 


»#SOf TNM,«CSP2 


/PICKUP SINGLE PRECISION BINARY NUMBER 


004512 


004737 


007366 


JSR 


PC,M$SB2U 


/ CHANGE IT TO DECIMAL ASCIZ 


004516 


004737 


007422 


jsr 


PC,»»SSUPRS 


/TYPE WITHOUT LEADING ZEROS 


004522 


104401 


013074 


TYPE 


,MSS3 


;«CRLF*"HARD ERRORS" N 


004526 


013746 


001210 


MOV 


##HAKDNM,-»tSP) 


/PICKUP SINGLE PRECISION BINARY NUMBER 


004532 


004737 


007366 


JSR 


PC,0*SSB2D 


f CHANGE IT TO DECIMAL ASCIZ 


004536 


004737 


007422 


JSR 


PC,«»*SSUPRS 


/ TYPE WITHOUT LEADING ZEROS 


004542 


104401 


013112 


TYPE 


, MStta 


|<CKLF>»BYTES READ" " 


004546 


012746 


001214 


MOV 


•RBYTTLf • ISPJ 


1 GET ADDRESS OF OOUBLE PRECISION BINARY 


004552 


004737 


007172 


JSR 


PC,«'»$U82U 


/CHANGE IT TO DECIMAL ASCIZ 


004556 


004737 


007422 


JSR 


PC,MSSUPR5 


ITYPE IT WITHOUT LEADING ZERO 


004562 


104401 


013127 


TYPE 


,MSG5 


;<CHLF>"8YTES WRITTEN"" 


004566 


012746 


001220 


MOV 


*W8YTTL,-15PJ 


/GET ADDRESS OF DOUBLE PRECISION BINARY 


004572 


004737 


007172 


JSR 


PC,P#SUB2U 


1 CHANGE IT TO DECIMAL ASCIZ 


004576 


004737 


007422 


JSR 


PC,»#SSUPHS 


1 TYPE IT WITHOUT LEADING ZERO 


004602 


104401 


0131«7 


TYPE 


,MSGb 


|<CRLF>"TAPE PASSES* " 


004606 


013746 


001212 


MOV 


•»E0T5,-(SH) 


1 PICKUP SINGLE PRECISION BINARY NUMBER 


004612 


004737 


007366 


JSR 


PC,*»S3B20 


/CHANGE IT TO DECIMAL ASCIZ 
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1263 
1264 


004616 


004737 


007422 






JSR 


PC,'*SSUPRS 


1 TYPE WITHOUT LEADING ZEROS 


1265 


004622 


104401 


013165 






TYPE 


»MSG7 


MCRLF* "FILES/PASS*" 


1266 


004626 


013700 


001236 






MOV 


■#LA3TKL,Rlfl 


/PICKUP THE LAST FILE NUMBER 


1267 


004632 


105200 








INCB 


R0 


/ ADD 1 TO MAKE IT # OF FILES 


1268 


004634 


010046 








MOV 


R0 f - ISPJ 


/ PUT IT ON THE STACK 


1269 


004636 


004737 


007366 






JSR 


pc,«»*s$b2d 


/CHANGE IT TO DECIMAL ASCIZ 


1270 


004642 


004737 


007422 






JSR 


PC,#»$SUPRS 


/TYPE IT WITHOUT LEADING ZEROS 


1271 


















1272 


304646 


104401 


013202 






TYPE 


I MSGS 


/<CRLF>"BL0CK3/PILE«" 


1273 


004652 


013746 


001310 






MOV 


•#FlLE5Z,-CSP) | PICKUP SINGLE PRECISION BINARY 


1274 


004656 


004737 


007366 






JSR 


PC,0»SSB2D 


/CHANGE IT TO DECIMAL ASCIZ 


1275 


004662 


004737 


007422 






JSR 


PC,0»SSUPRS 


/TYPE WITHOUT LEADING ZEROS 


1276 


















1277 


004666 


104401 


001204 






TYPE 






1278 










1 ///////////////////////////////////////// ///////////////////////////// 


1279 










/ 


CHECK 


HALT AT tND"OF 


-TEST SWITCH 


1280 










1 ////////////////////////////////////////////////////////////////////// 


1281 


004672 


032777 


001000 


174240 




BIT 


*SWtt9,»SWR 


/HALT AT END-OF-TEST? 


1282 


004700 


001406 








BEQ 


100S 


/BR IF NO 


1283 


004702 


000000 








HALT 




/ YES 


1284 


















1285 


004704 


022767 


000176 


174226 




CMP 


«3WREG,SWR 


/USING 5/W SWITCH REG7 


1286 


004712 


001001 








BNE 


20S 


/NO- GET OUT 


1287 


004714 


104405 








GTSWR 




/SET VALUE 


1288 


004716 








20SI 






/CONTINUE 


1289 


004716 








100SI 








1290 


004716 


013700 


000042 






MOV 


•#42, R0 


//INSURE R0 CONTAINS THE MONITORS 


1291 


004722 


001405 








BEQ 


SOOAUN 


// RETURN ADDRESS 


1292 


004724 


000005 








RESET 




//CLEAR THE WORLD 


1293 


004726 


004710 






sendad: 


JSR 


PC, tnaj 


//GO TO MONITOR 


1294 


004730 


000240 








NOP 




//SAVE ROOM 


1295 


004732 


000240 








NOP 




//FOR 


1296 


004734 


000240 








NOP 




//ACT11 


1297 


004736 








SDOAGNI 








1298 


004736 


000137 








JMP 


PCPCj* 


/ /RETURN 


1299 


004740 


002630 






srtnad: 


o WORD 


START 




1300 


004742 


377 


377 


000 


SENULL! 


9 BYTE 


-1,-1,0 


//NULL CHARACTER STRING 


1301 


004745 


015 


042412 


042116 


3ENDMG3 


*ASCIZ 


«U5»«l«r»/END 


PASS/ 


1302 


004752 


050040 


051501 


000123 











TAXI DATA RELIABILITY MAINDEC-i 1-DZTAE-C MACYU 27C10I06J 17-MAR-77 10155 PAGE 31 

DZTAfcC.Pll 17*MAR«77 14852 SCOPE HANDLER KOUTlNt 



1 303 








1 3134 








1305 








1 3$g 








1387 








1308 








1 309 








1310 








131 1 








1312 








1313 










004 f 00 






1315 


004 f 00 


4 131 /i /l f% ft 
1 0*«(|@Q 




1316 






a Annan 

10 <f D U KJ 


1317 


aa /i 7 7 a 


1010 1 0C3 




1318 








1319 


__ 

2 






1320 








1321 


004774 


013746 


000004 


1322 


005000 


012737 


005020 


1323 




005737 


177060 


1324 


005012 


012637 


000004 


1325 


005016 


000404 




1326 


aso juc v 


022626 




1327 


005022 


012637 


000004 


1328 


005026 


000406 




1329 


005030 






1330 


005030 


105267 


174046 


1331 


005034 


011667 


174046 


1332 


005040 


105067 


174037 


1333 


005044 


016777 


174032 


1334 


005052 


016716 


174030 


1335 


005056 


000002 





.5BTTL SCOPE MANOLEH HOUTINb 

|*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 

I * AND LOAD THE TEST NUMBER UTSTNMJ INTO THE DISPLAY REG, (DISPLAY<7!0>) 

I * AND LOAD THE ERROR FLAG UERFLG) INTO D ISPL A Y< 1 5 S 08> 

MTME SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE S 

?*5W14*1 LOOP ON TEST 

l*CALL 

l* scope ;;scuPfc«iaT 



SSCOPEi 

CKSWR 

US BIT #BIT14,#SWR 

BNE JOVER 

?#»###START OP CODE FOR THE XON 



SXTSTRl BR 

MOV 
MOV 
TST 
MOV 
BR 

5S * CMP 
MOV 
BR 



6$ 

##ERRVtC,«tSP) 
#5S,*#tRRVEC 
»• 17 7060 
CSP)*,»#ERRVEC 
SSVLAD 
CSP)*, ISPJ + 
CSP)*,f#ERRVEC 
SOVEK 



6SS ;****#END OF CODE FUR THE XOR 



SSVLADJ INCB 
MOV 
CLRB 

SOVERt MOV 

MOV 
RTI 



ITSTNM 
CSP) , SLP ADR 
SERFLli 

STSTNM,#UISPLAY 
SLPAURi CSP) 



I 1 TEST FOR CHANGE IN SOFT-SWR 
HLOOP ON PRESENT TEST? 

M YES IF SW14«1 
TE5TER##### 

HIF RUNNING ON THE "XOR" TESTER CHANGE 
H THIS INSTRUCTION TO A "NOP" tNQP»240) 

I I SAVE THE CONTENTS OP THE ERROR VECTOR 
f I SET FOR TIMEOUT 

HTIMt OUT ON XOR? 

1 1 RESTORE THE ERROR VECTOR 

HGQ TO THE NEXT TEST 

; t CLEAR THE STACK AFTER A TIME OUT 

^RESTORE THE ERROR VECTOR 

HLOOP ON THE PRESENT TEST 

TESTER##### 
MCOUNT TEST NUMBERS 
1 1 SAVE SCOPE LOOP ADDRESS 
| ; ZERO THE ERROR FLAG 
I J DISPLAY TEST NUMBER 
; I FUDGE RETURN ADDRESS 
HFIXE5 PS 
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1336 .SBTTL ERROR HANDLER ROUTINE 
1337 

1339 l*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

1340 MSAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

1341 / * AND GO TO TYPERR ON fcRROR 

1342 / *THE SWITCH OPTIONS PROVUEU BY THIS ROUTINE ARE ! 

1343 ; *SW15«l HALT ON ERROR 

1344 MSW13BI INHIBIT ERROR TYPEOUTS 
J345 I*SWI0*1 BELL ON ERROR 

1346 MCALL 

1347 ;* ERROR N MERRORbEMT AND N»ERROR ITEM NUMBER 
1348 



1349 


005060 








serror: 








1350 


005060 


104406 








CKSWR 




1 f TEST FOR CHANGE IN SOFT-SWR 


1351 


005062 


105267 


174015 




7SI 


INCB 


SERFLG 


1 1 SET THE ERROR FLAG 


1352 


005066 


001775 








BEQ 


7$ 


MDON'T LET THE FuAG GO TO ZERO 


1353 


005070 


016777 


174006 


174044 




MOV 


ITSTNM, POISPLAY 


; ; DISPLAY TEST NUMBER AND ERRUR FLAG 


1354 


005076 


032777 


002000 


174034 




BIT 


*BIT10, 0SWR 


f 1 BELL ON ERROR? 


1355 


005104 


001402 








BEQ 


IS 


UNO - SKIP 


1356 


005106 


104401 


005204 






TYPE 


, SBELL 


1 f RING BELL 


1357 


005112 


005267 


173774 




1S1 


INC 


SERTTL 


HCOUNT THE NUMBER OF ERRORS 


1358 


005116 


011667 


173774 






MOV 


CSP) , SfcRRPC 


1 f GET ADDRESS OF ERROR INSTRUCTION 


1359 


005122 


162767 


000002 


173766 




SUB 


#2,SERRPC 




1360 


005130 


117767 


173762 


173756 




MOVB 


f$ERRPL,5ITEMB 


//STRIP AND SAVE THE ERROR ITEM CODE 


1361 


005136 


032777 


020000 


173774 




BIT 


$SIT1J,09WR 


//SKIP TYPEOUT IF SET 


1362 


005144 


001004 








BNE 


20$ 


//SKIP TYPEOUTS 


1363 


005146 


004767 


000036 






JSR 


PC, TYPERR 


//GO TO USER ERROR ROUTINE 


1364 


005152 


104401 


001203 






TYPE 


,SCRLF 




1363 


005156 








2031 








1366 


005156 


005777 


173756 




2$t 


TST 


#SWR 


/ 1 HALT ON ERROR 


1367 


005162 


100002 








BPL 


3S 


HSKIP IF CONTINUE 


1368 


005164 


000000 








HALT 




/ / HALT ON ERROR { 


1369 


005166 


104406 








CKSWR 




/ /TEST FOR CHANGE IN SOFT-SWR 


1370 


005170 








351 








1371 


005170 


022737 


004726 


000042 




CMP 


»SENUAU,#»42 


/ /ACTM1 AUTO-ACCEPT? 


1372 


005176 


001001 








BNE 


6S 


/ / BRANCH IF NO 


1373 


005200 


000000 








HALT 




H YES 


1374 


005202 








6SS 








1375 


005202 


000002 








RTI 




/ I RETURN 


1376 


005204 


177607 


000377 




3BELLS 


.ASCIZ 


<207>«377»<377> 


H ASCII CODE FOR BELL 
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1377 










1378 








/THIS ROUTINE 


Villi T YPh HUT TMF 


ERROR 


ncooAuca 


1379 


005210 


104401 


001203 


T YPERR ! 


TYPE 


f SCRLF 




1 T VPF TR » & «| F ft 


1380 


005214 


010046 






MQV 


R0» m (SH ) 




9 q « v t» n i« 


1381 


005216 


010146 






MOV 


Rl , « 15P) 




1 « v c- n 4 


1382 


005220 


005046 






CLR 


„ ( S p j 




f PTTKUP THF TTFM HVTF 


13«3 


005222 


1 1371b 


001114 












1384 


005226 


005316 






DEC^ 






■ in ii ibt tmbt r kini> v en tT 


1385 


005230 


006316 






ASL 


f SB 1 




1 WILL WORK r OR THt 


1386 


005232 


006316 






ASL 


f «D 1 




J tKKUK T ADLt 


1387 


005234 


006316 






ASL 








1388 


005236 


1 16601 


000001 






1 tSP ) 1 K 1 




1 GET THE ERROR TYPE 


1389 


005242 


1 12600 








reel « w m 
lor i ~ i H\0 




fuel T nt tRnuK NUnDtK 


1390 


005244 


066100 


005252 




Ann 


IS I" U 1 HO 




jrQKn Tnt TABLE PUIN l fcK 


1391 


005250 


000403 






BR 


2S 






I39g 


005252 


001622 




1 i J 


ITEMS0 








1393 


005254 


001642 






ITEMS1 








1394 


005256 


001732 






ITEMS2 








1395 


















1396 


005260 


012067 


000002 


2$ ! 


MOV 


1 KB J ♦( JS 




iprrKiiB gcaonp mc4<irvi> on t kitvd 
1 r ILKUr CNKUK nt 33 AuC " rUJnlT&R 


1397 


005264 


104401 






TYPE 






/ TYPE "ERROR MESSAGE " 


1398 


005266 


000000 




5$ « 











1399 


005270 


104401 


001203 




TYPE 


t SC R LF 




i T VPF urD" & «i f n 


1400 


005274 


012067 


000002 




MOV 


CR0} * t US 




I PTPKIJP "n ATA HF AOFH n PDTNTFR 


1401 


005300 


104401 






TYPE 






1 T VPF nniTi HF ADPW * 


1402 


005302 


000000 




4$: 











1403 


005304 


104401 


001203 




TYPE 


r SCRLF 




/TYPE "CR" % "LF" 


1404 


005310 


060107 






ADD 


Ri»PC 




/GO TYPE THE DATA 


1405 


005312 


000402 






BR 


fcRROHB 






1406 


005314 


000430 






BR 


ERROR 1 






1407 


005316 


000473 






BR 


ERROH2 






1408 


















1409 








;////////////////////////////////////////////////////////////////////// 


1410 


005320 


010246 




6.RROR0I 


MOV 


R2,«ISP) 




/SAVE R2 


1411 


005322 


012001 






MOV 


(R0J*,K1 




/PICKUP THE "DATA POINTER" 


1412 


005324 


012002 






MOV 


(R0)*,H2 




/PICKUP "FORMAT" POINTER 


1413 


005326 


000402 






BR 


2S 






1414 


005330 


104401 


013323 


1SS 


TYPE 


,MSS14 




/" " 


1415 


005334 


012100 




211 


MOV 


(R1J*,R0 




/GET ADDRESS OF DATA WORD 


1416 


005336 


001473 






BEQ 


EREXTi 




/GO TO EXIT IF 


1417 


005340 


105722 






TST8 


IR2J* 




/ TYPE DECIMAL OR OCTAL? 


1418 


005342 


001003 






BNE 


3S 




/BR IF DECIMAL 


1419 


005344 


01 1046 






MOV 


CR0J ,-(SP) 


//SAVE (R0) FOR TYPEOUT 


1420 


005346 


104402 






TYPOC 




/ / GO 


TYPE—OCTAL ASCII (ALL DIBITS} 


1421 


005350 


000767 






BR 


1$ 




/GO GET NEXT DATA WORD 


1422 


005352 


010046 




3$! 


MOV R0 


,»(SP) 






1423 


005354 


004737 


007172 




JSR 


PC,#»SUB2D 




/CHANGE NUMBER TO ASClZ 


1424 


005360 


062716 


000004 




ADD 


*4, IbPJ 




/TYPE 6 DIGITS 


1425 


005364 


012667 


000002 




MOV 


CSPJ 4S 




/ 


1426 


005370 


104401 






TYPE 






/CALL TYPE ASCIZ MESSAGE ROUTINE 


1427 


005372 


000000 




4$: 


.WORD 







/ADDRESS OF ASCIZ STRING 


1428 


005374 


000755 






BR 


IS 




/GO GET NEXT DATA WORD 
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ZTAECPli 




14:52 


ERROR 


TYPEOUT ROUTINE 




1429 








/////////////////////////////////////////////////////////////////////// 


1430 


005376 


011001 




ERROR 1 > MOV 


(R0J ,R1 


/PICKUP THE "DATA POINTER" 


1431 


005400 


013|46 




MOV 


»(RU + fC5P) 


//SAVE #(R1)* FOR TYPEOUT 


1432 












//SERRPC 


1433 


005402 


104402 




TYPOC 




//GO TYPE — OCTAL ASCII (ALL DIGITS) 


1434 


005404 


012767 


000003 000 


006 MOV 


*3 f 2S 


/PRINT 2 SPACES 3 TIMES 


1435 












/AND 2 DECIMAL *'S 2 TIMES 


1436 


005412 


104401 


013323 


1SI TYPE 


f MSG14 


/" 8 


1437 


005416 


005327 




DEC 


(PC)* 


/TYPE ANOTHER # ? 


1438 


005420 


000000 




23! .WORD 







1439 


005422 


001412 




BEQ 


4$ 


/BR IF NO 


1440 


005424 


012146 




MOV 


CR1)*,-CSP) 


/YES— ^PICKUP ADDRESS OF # 


1441 


005426 


004737 


007172 


JSR 


PC,*»SDB2D 


/GO CHANGE TO DECIMAL ASCIZ 


1442 


005432 


062716 


000004 


ADO 


•4, (SPJ 


/ ONLY TYPE THE LAST 6 DIGITS 


1443 


005436 


012667 


000002 


MOV 


CSPJ*, J§ 


/SAVE ADDRESS OF ASCIZ STRING 


1444 


005442 


104401 




TYPE 




/CALL THE TYPE ROUTINE 


1445 


005444 


000000 




3S< .WORD 





/POINTER GOES HERE 


1446 


005446 


000761 




BR 


IS 


/LOOP 


144? 


005450 


013101 




4SI MOV 


*(R1 J+/R1 


/PICKUP FUNCTION INDEX 


1448 


005452 


016167 


005466 000 


002 MOV 


BADFUNCR13 ,5$ 


/GET THE FUNCTION MESSAGE 


1449 


005460 


104401 




TYPE 




/AND TYPE IT 


1450 


005462 


000000 




5$: .WORD 


tf 


/MESSAGE POINTER GOES HERE 


1451 


005464 


000421 




BR 


EREXT2 


/GO TO EXIT 


1452 








/THIS TABLE CONTAINS THE POINTERS TO THE DIFFERENT ASCIZ MESSAGES 


1453 








/FOR THE FUNCTXON BEINli PERFORMED WHEN THE ERROR OCCURRED, 


1454 


005466 


012067 




baufun: mxwfg 


/ 


WRITE-FILE-GAP 


1455 


005470 


012106 




MXWRIT 


/ 


WRITE 


1456 


005472 


012114 




MXREAD 


/ 


READ 


1457 


005474 


012121 




MXBSFG 


/ 


BACK*.5PACE»FILE*"GAP 


1458 


005476 


012145 




MXBSBG 


/ 


BACK*SPACE*»BLK»GAP 


1459 


005500 


012170 




MXSFFG 


f 


SPACE«FWD*FILE-»GAP 


1460 


005502 


012213 




MXSFBG 


/ 


SPACE'»FWD«BLK»GAP 


1461 


005504 


012235 




MXRWND 


/ 


REWIND 


1462 














1463 








/////////////////////////////////////////////////////////////////////// 


1464 


005506 


011000 




ERR0R2I MOV 


(R0j ,m 


/PICKUP THE DATA POINTER 


1465 


005510 


005710 




1$S TST 


CR0J 


/ ALL DATA TYPED? 


1466 


005512 


001406 




BEQ 


EREXT2 


/BR IF YES 


1467 


005514 


013046 




MOV 


#CRiaj*,-isp) 


//SAVE #(R0J* FOR TYPEOUT 


S468 


005516 


104402 




TYPOC 




l/GO TYPE—OCTAL ASCII (ALL DIGITS) 


1469 


005520 


104401 


013323 


TYPE 


,MSG14 


/" " 


1470 


005524 


000771 




BR 


IS 


/LOOP 


1471 














1472 








/////////////////////////////////////////////////////////////////////// 


1473 


005526 


012602 




EREXTI » MOV 


(8PJ*,K2 


/RESTORE R2 


1474 


805530 


012601 




EREXTgl MOV 


ISP) +,K1 


/RESTORE HI 


1475 


005532 


012600 




MOV 


ISP) *,K0 


/RESTORE R0 


1476 


005534 


000207 




RTS 


PC 


/RETURN 


1477 














1478 
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1079 










/////////////////////////////// //////////////////////////////// //////// 


1480 
1 4© | 










t ////////////////////////////////////////////////////////////////////// 










»sbttl 




UETEHM iNE CONTROL 


AND STATUS ERROR 


1482 


















1483 


005536 


1 13737 


00 1 304 




csrerrs 


M0V8 


#*FILE,##SKEG|3 


/ GET THE PILE NUMBER 


1484 


005544 




act 1 ton* 


(001 loo 




M0V8 


9#BL0CK,$»«REG2 


1 GET THE BLOCK NUMBER 


1485 




013746 


011/17 170) 
1010 f 1 ' 10 






MOV 


##PUNLUC#-tSP) 


J GET THfc LAST FUNCTION 


I486 


005556 


0427 1 6 


177761 






BIC 


#"CFUNCTION, CSP3 


/ CLEAR AWAY THE JUNK 


1487 




?i m I 








MOV 


CSP) ,»*STMP0 


/SAVE THE FUNCTION CODE 


1488 


005566 




0101 1 *> 1 3 

to to * o * e 


01 01 01 01 01 4 

10 10 10 10 10 1 




MOVB 


•#P AKMBK f 1 CSP) 


/ COMBINE THE ST/ER WITH 


1489 


to 103 J r *» 


012601 








MOV 


C3P)*,R1 


1 THE FUNCTION 


1490 


005576 


10 10310 **o 








CLR 




/FIND OUT WHAT CAUSED THE ERROR 


1 £19 1 


cms: a»cia 




10(0 1 10 10 10 






BIT 


#OFFLINg,Kl 


1 OFF LINE? 


1492 




CI S1 1 013*5 
1010 1 I0C3 








BNE 


63 


1 BR IF YES 


1493 


01030100 




01 1 01 0101 01 
10 1 10 10 1010 






BIT 


• rtRTLOUK , H I 


7 WRITE LOCK? 


1494 




0101 1 CI 3 4 

1810 1 toe 1 








BNE 


53 


J BR IF YES 




0056 1 4 


032701 


0I3GI fit 0101 






BIT 


»LEAUEW,R1 


IBOT/EOT? 


1496 


005620 


001015 








BNE 


4$ 


/BR IF YES 


1497 






10 V H %J v %) 






BIT 


»FGAH,H1 


IFILE GAP? 


1498 




0010 1 1 








BNE 


iS 


1 BR IF YES 


1499 


005630 


03270 1 


002000 






BIT 


♦TIMtRK, Rl 


/TIMING? 


1500 


005634 


001005 








BNE 


2$ 


/BR IF YES 


15^1 


BICJO JO 




tO*t!wtO*'IO 






BIT 


#CRCtRK,Rl 


/BLOCK CHECK? 


1502 












BNE 


IS 


/BR IF YES 














INC 


CSP) 


/ 6 « UNKNOWN 


1504 


0l0)564fc 
!0lf3D*tO 


0052 1 6 






is: 


INC 


CSPJ 


/ 5 » CRCERR 


1505 


OI03O *V 








2$3 


INC 


CSP) 


/ 4 ■ TIMERR 


1506 


005652 


005216 






is: 


INC 


CSPJ 


/ 3 a FGAP 


1507 


005654 


0052 1 6 






4SI 


INC 


CSP) 


? 2 ® LEADER 


1508 


PICK*.*;*. 
BIO 30 3D 


0052 1 6 






5SS 


INC 


CSPJ 


/ I « WRTLOCK 




005660 








6*8 








1510 


005660 










ASLB 


CSPJ 


/POSITION INDEX 


1511 


005662 


062607 








AOO 


CSPJ*, PC 


/BR TO THfc ROUTINE 


1512 


HH3004 


01 61 A /I 01 ^ 








BR 


OL.EHR 




1513 


005666 


1010 V"* 10 ' 








BR 


WL.ERR 






005670 


loSooM 1 to 








BR 


CL.EKR 




1515 


005672 


0fQ(E><*oc 








BR 


FG.EKR 




1516 


005674 


010101 /l 1 

101010*9 O J 








BR 


TM 9 fcHR 






005676 


000464 








BR 


BC 9 EWR 




1518 


UI93 1 1010 


a 01 a /l 7 3 








BR 


X,ERK 




1519 




















005702 


1 04 101 






OL » ERR i 


ERROR 


101 


/DRIVE IS OFFLINE 


1521 


005704 


000200 








RTS 


R0 




1522 


















1523 


005706 


104102 






WL.ERR! 


ERROR 


102 


/DRIVE IS WRITE LOCK 


1524 


005710 


000200 








RTS 


R0 




1525 
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1526 


005712 


022737 


000000 


001172 


CL«ERRS 


CMP 


*XWFG, *#STMP0 


/FUNCTION "WRITE FILE GAP"? 


1527 


005720 


001014 








BNE 


2S 


/BR IF NO 


1528 


005722 








1SI 








1529 


005722 


162737 








SUB 


CPC)*,*CPCJ* 


/DECREMENT THE FILE NUMBER 


1530 


005724 


001 


377 






sBYTE 


1,»1 




1531 


005726 


001304 








„ WORD 


FILE 




1532 


005730 


113737 


001304 


001236 




MOVB 


*#FILE,*¥LASTFL 


/SAVE LAST FILE NUMBER 


1533 


005736 


113737 


001310 


001234 




MOVB 


MFILEoZ, **LASTBK 


/AND LAST BLOCK NUMBER 


1534 


005744 


005337 


001234 






DEC 


»»LASTbK 




1535 


005750 


000425 








BR 


3$ 


/BR IF NO 


1536 


005752 


022737 


000002 


001172 


238 


CMP 


•XWHITt,#«*TMP0 


/FUNCTION "WRITE 9 ? 


1537 


005760 


001025 








BNE 


as 


/BR IF NO 


1538 


005762 


113737 


001304 


00123b 




MOVB 


#!»FILE,MLASTFL 


/ SAVE LAST FILE NUMBER 


1539 


005770 


162737 








SUB 


CPC)*,«»£PCJ* 


/DECREMfcNT THE BLOCK NUMBER 


1540 


005772 


001 


377 






a BYTE 






1541 


005774 


001306 








bWORD 


BLOCK 




1542 


005776 


113737 


00130b 


001234 




MOVB 


»*BLUCK,»*LA3THK 


/ SAVE LAST BLOCK NUMBER 


1543 


006004 


163737 


007164 


001220 




SUB 


##CBCNT,#»WBYTTL 


/SUBTRACT RESIDUE COUNT FROM 


1544 


006012 


005637 


001222 






SBC 


MWBYTTL + 2 


/ THE TOTAL WRITE COUNT 


1545 


006016 


005137 


001306 






COM 


f*BLUCK 


/IF NO BLOCKS IN THIS FILE 


1546 


006022 


001737 








BEQ 


IS 


/BACK TO LAST FILE 


1547 


006024 


022020 






35! 


CMP 


CR0) * t CR0 J ♦ 


/ ADJUST FUR RETURN 


1548 


006026 


005237 


001212 






INC 


MEOTS 


/COUNT END-QF»T APE 


1549 


006032 


000401 








BR 


3$ 




1550 


006034 


104103 






45 8 


ERROR 


103 


/"CLEAR LEADER" ERROR 


1551 


006036 


000200 






5*1 


RTS 


R0 


/RETURN 


1552 


















1553 


006040 


104104 






FGsERR t 


ERROR 


104 


/ "FILE GAP ERROR" 


1554 


006042 


000200 








RTS 


R0 




1555 


















1556 


006044 


104105 






TM.ERRI 


ERROR 


105 


/TIMING ERROR 


1557 


006046 


000200 








RT8 


R0 




1558 


















1559 


006050 


104106 






BC* ERR 1 


ERROR 


Ub 


' /BLOCK CHECK ERROR 


1560 


006052 


022737 


000004 


001172 




CMP 


#XREAD» ##$TMP0 


/IF FUNCTION ISN'T A HEAD 


1561 


006060 


001001 








BNE 


IS 


/ TAKE THE "EOP" EXIT 


1562 


036062 


022020 








CMP 


CR0J * i CR0J + 


/ADJUST FOR RETURN 


1563 


006064 


000200 






1SI 


RTS 


R0 




1564 


















1565 


006066 


104107 






X e £RRS 


ERROR 


107 


/UNKNOWN INTERRUPT 


1566 


006070 


000200 








RTS 


R0 
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IS67 




1568 




1569 




1570 




1571 




1572 




1573 




1574 




1575 




1576 




1577 




1578 




1579 




1580 


006072 


1581 


006076 


1582 


006102 


1583 


006104 


1584 


006112 


1585 


006116 


1586 


006124 


1587 


006130 


1588 


006134 


1589 




1590 




1591 




1592 




1593 




1594 




1595 




1596 




1597 




1598 




1599 




1600 




1601 




1602 




1603 




1604 




1605 




1606 




1607 




1608 




1609 




1610 




1611 


006136 


1612 


006136 


1613 


006140 


1614 


006142 


1615 


006144 


1616 


006146 


1617 


006152 


1618 


006156 


1619 


006162 


1620 


006166 


1621 


006170 


1622 


006172 



.SBTTL ROUTINE TO SETUP FOR A WRITE OPERATION 

/THIS ROUTINE WILL SETUP THE BYTE COUNT, DETERMINE THE PATTERN TO 

/BE WRITTEN UN TAPE, AUD THE SIZE OF THIS BLOCK TO THE TOTAL 

/ NUMBER OF BYTES TRANSFERRED AND CALL THE ROUTINE TO FILL THE 
/WHITE BUFFER. 

/CALL 
/ 



013700 001306 

042700 177760 
006300 

066037 001312 001220 

005537 001222 

016037 001312 001620 

016000 001352 

004737 006136 
000207 



010046 
010146 
010246 
010346 
012701 
012702 013464 
013722 001304 
013722 001306 



JSR 


PC,#*5fcTUPW 




MOV 


##BLUCK,R0 


/GET THE BLOCK NUMBER 


8IC 


jrCib, ,R0 


/ KEEP MAX PATTERN 


ASL 


R0 


Z*2 


ADO 


BLK5Z CN0 J , ##WB YTTL 


/ ADD THE BLOCK SIZE TU THE TOTAL 


ADC 


MWBYTTL + 2 


/NUMBER OF BYTES WRITTEN 


MOV 


BLKS2(K0} ,MPARMBK + 6 


/ SET THE BYTE COUNT 


MOV 


PATS IKU) ,H\C 


/ GET PATTERN POINTER 


JSR 


PC,#*F1LL 


/GO FILL WRITE BUFFER 


RTS 


PC 


/RETURN 



•SBTTL 
/CALL 
/ 
/ 



ROUTINE TO FILL THE BUFFER BEFORE A WRITE 



MOV 
JSR 



#PATADK,R0 

PC,«»*FILL 
/THE BUFFER IS FILLED AS FULLOWSS 
Z 

/BYTE* DATA 
/ 

/0001 
Z0002 
i*0003 
Z0004 
Z0005 
Z0006 
/ * 
/ * 
| * 

/1027 9 
/1028 9 



Z1ST ADDRESS OF 8 BYTE PATADR 



FILE NUMBER 

FILE NUMBER COMPLEMENTED 
BLOCK NUMBER 

BLOCK NUMBER COMPLEMENTED 
DATA PATTERN 
DATA PATTERN 



DATA PATTERN 
DATA PATTERN 



FILL " 



MOV 


R0,»lSH) 


MOV 


Rl,»l3HJ 


MOV 


R2,«USP) 


MOV 


R3,*ISP) 


MOV 


*1024,/8, ,N1 


MOV 


»BUFFEK,H2 


MOV 


MFILE, IKS) * 


MOV 


##BLUCK, (R2) ♦ 


MOV 


R0,RJ 


MOV 


R3,R*> 


MOV 


IR01*, IR2J* 



/ /PUSH R0 ON STACK 

//PUSH Rl ON STACK 

//PUSH R2 ON STACK 

//PUSH R3 ON STACK 

/FILL 1024. BYTES WITH PATTERN 
/ 1ST ADDRESS OF DATA BUFFER 
/FILE NUMBER AND ITS COMPLEMENT 
/BLOCK NUMBER AND ITS COMPLEMENT 
/SAVE FIRST ADDRESS OF PATTERN 
/ RESET PATTERN POINTER 
/ MOVE THE PATTERN 
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PAGE 38 
I WRITE 



1623 


006174 


012022 


1624 


006176 


012022 


1625 


006200 


012022 


1626 


006202 


005301 


1627 


006204 


001371 


1628 


006206 


012603 


1629 


006210 


012602 


1630 


006212 


012601 


1631 


006214 


012600 


1632 


006216 


000207 


1633 






1634 






1635 






1636 






1637 






1638 






1639 






1640 






1641 






1642 






1643 






1644 






1645 


006220 


013700 


1646 


006224 


042700 


1647 


006230 


006300 


1648 


006232 


066037 


1649 


006240 


005537 


1650 


006244 


016037 


1651 


006252 


000207 


1652 






1653 






1654 






1655 






1656 






1657 






1658 






1659 






1660 






1661 






1662 






1663 






1664 






1665 






1666 






1667 






1668 






1669 






1670 


006254 


012700 


1671 


006260 


011001 


1672 


006262 


000301 


1673 


006264 


062001 


1674 


006266 


005101 


1675 


006270 


001031 


1676 


006272 


011001 


1677 


006274 


000301 


1678 


006276 


062001 



001620 



MOV 


(R0J ♦( 


t IR2J* 




/INTO THE BUFFER 


MOV 


CR0) *i 


r IR2J* 






MOV 


CR0)* ( 


» IR2J* 






DEC 


Rl 








BNE 


IS 








MOV 


ISP)*, 


-R3 


/ /POP 


STACK INTO R3 


MOV 


CSP)* ( 


,N2 


/ /POP 


STACK INTO K2 


MOV 


tSP)*, 


r«l 


//POP 


STACK INTO Rl 


MOV 


ISPJ*, 


,H0 


//POP 


STACK INTO R0 


RTS 


PC 









•SBTTL ROUTINE TO SETUP FOR A READ 

/THIS ROUTINE WILL StTUP THE BYTE COUNT AND ADD THE SIZE OF THIS 
/BLOCK TO THE TOTAL NUMBER OF BYTES READ, 

/CALL 

/ 



JSR 


PC,SETUPH 




MOV 


*«BLUCK,K0 


/GET THE BLOCK NUMBER 


BIC 


#"C15,,R0 


/KEEP MAX PATTERN 


ASL 


R0 


/X2 


ADD 


BLKSZ CR0 J » MRBYTTL 


/ ADD THE BLOCK SIZE TO THE TOTAL 


ADC 


MR8Ym*2 


/NUMBER OF BYTES READ 


MOV 


BLK3ZCK0) ,**PARMBK+6 


/ SET THE BYTE COUNT 


RTS 


PC 


/RETURN 



•SBTTL ROUT INt TO CHECK FOR SYNC PROBLEMS 

/THIS ROUTINE CHECKS THE FIRST FOUR BYTES OF THE DATA 

/BUFFER TO INSURE THE PROPER BLOCK WAS READ 

/BYTE 1 ■ FILE NUMBER 

/BYTE 2 b FILE NUMBER COMPLEMENT 

/BYTE 3 ■ BLOCK NUMBER 

/BYTE 4 a BLOCK NUMBER COMPLEMENT 

/CALL 

/ 
/ 

I 

f 
/ 

SYNCKi 



JSR 


PC,*#SYNCK 




NORMAL 


RETURN 




ERROR 


RETURN 




MOV 


#BUFFtK,R(fl 


/ ADDRESS UF FIRST WORD 


MOV 


CR0J t R 1 


/CHECK FILE # WAS READ OK 


SWAB 


Rl 


/BYTE 1 SHOULD BE THE 


ADD 


(R0J*,N! 


/COMPLEMENT OF BYTE 


COM 


Rl 




BNE 


23 


/BR IF FILE NUMBER READ WRONG 


MOV 


4R0J ,R1 


/CHECK BLOCK # WAS READ OK 


SWAB 


Rl 


/BYTE 3 SHOULO BE THE 


ADD 


(R0J*,H1 


/COMPLEMENT OF BYTE 2 
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$679 
















|68@ 


006302 


an 1 ad a 

VH 1 106*? 










iS 


168 i 




023740 


an \ ■cat, 

1010 * JvD 






TMP 


A&sti iiph m run i 


1682 


BBO v 1 10 


0101 1 an X 








HMP 




1683 


0063 1 2 


0237 40 


aa« in a 

101 V t JSt 






TMB 


»r 1 Ufc > * \n\o J 


1684 


00631 6 


00 1416 








RFD 




1685 




1 1 3737 


001 304 


001 162 




MOVB 




1686 


006326 


1 13737 


001306 


001 166 




MQVB 


P#8LUCKf##$REG2 


1687 


006334 


113737 


013464 


001172 




MQVB 


M8UrFtR,P*STMPU 


1688 


006342 


113737 


013466 


001176 




MOVB 


##BUhFtR*2,##STMP2 


1689 


006350 


062716 


000002 






ADD 


#2, UP} 


1690 


006354 


000207 






is: 


RTS 


PC 



1691 
1692 
1693 
1694 



/br if block number read wrong 
i make sure proper block was read 
;br if at the wrong block 

I MAKE SURE PROPER FILE 
I BR IF IN THE PROPER FILE 



/ TAKE ERROR RETURN 
/RETURN 



1695 










f CALL 






1696 












JSR 


PC t D ATCMP 


169? 












NORMAL 


RETURN 


1693 












ERROR 1 


RETURN 


1699 












ERR0R2 


RETURN 


1700 
















1701 


006356 


013700 


001306 




OATCMP X 


MOV 


0$BLUCK f RH 


1702 


006362 


042700 


177760 






BIC 


lb- gpj 


1703 


006366 


006300 








ASL 


R0 


1704 


006370 


016001 


001312 






MOV 


BLK5Z (N0) f R 1 


1705 


006374 


012702 


013464 






MOV 




1706 


006400 


012703 


000004 






MOV 


#4, Ri 


1707 


!0l0O*f <0«# 




00 1 304 






MOV 


Mf TLfc . MA 


1708 


£1(0 OH i 10 


00530 1 






1 S J 


DEC 


R 1 


1709 




122224 








CMPB 




1710 


006414 


001015 








BNE 


4S> 


1711 


B80*( i O 


005303 








DEC 


H3 


1712 


v vgifC v 


001373 








BNE 


IS 


1713 


006422 




01010101 1 01 




2$ t 






1714 


006426 


016004 


001352 






MOV 


PATS Ititt J , H« 


1715 


006432 


005301 






3S1 


DEC 


Ri 


1716 


006434 


002437 








BLT 


5S 


1717 


006436 


122224 








CMPB 


IR2)*, IR«) + 


1718 


006440 


001003 








BNE 


4S 


1719 


006442 


005303 








DEC 


R3 


1720 


006444 


003372 








BGT 


3$ 


1721 


006446 


000765 








BR 


2$ 


1722 


006450 


005037 


001124 




4SI 


CLR 


i»#$6UDAT 


1723 


006454 


005037 


001126 






CLR 


##SBUDAT 


1724 


006460 


114437 


001124 






MOVB 


-CR4J ,»#$GDDAT 


1725 


006464 


010437 


001120 






MOV 


R4, SS»$UDADR 


1726 


006470 


114237 


001126 






MOVB 


«(R2J i 9*#$BDD AT 


1727 


006474 


010237 


001122 






MOV 


K2 f fSSBDAUR 


1728 


006500 


005401 








NEG 


Rl 


1729 


006502 


066001 


001312 






ADD 


BLKSZCK0) ,K1 


1730 


006506 


010137 


001230 






MOV 


Rl,S*#BYTNUM 


1731 


006512 


113737 


001304 


001162 




MOVB 


• #FILE,MSNEG0 


1732 


006520 


113737 


001306 


001166 




MOVB 


«>*BLUCK,«»#SREG2 


1733 


006526 


062716 


000002 






ADD 


#2, UPJ 


1734 


006532 


000405 








BR 


6S 



.SBTTL ROUTINE TO CHECK THE READ DATA 



I ERROR FLAG>0 AND DATA IS GOOD 
J DAT A IS BAD (ERROR FLAGb?) 
/DATA IS GOOD BUT ERROR FLAG«1 

/ GET THE BLOCK NUMBER 
I KEEP MAX PATTERN 
1X2 

/PICKUP THE BLOCK SIZE 
IFIRST ADDRESS OF DATA 
/SETUP TO CHECK FILE AND BLOCK 

/COUNT THIS BYTE 
/CHECK IT 
/BR IF BAD 
/AGAIN? 
/BR IF YES 

/GET NUMBER OF BYTES/PATTERN 

/ GET FIRST ADDRESS OF PATTERN 

/LAST BYTE BEEN CHECKED? 

/BR IF YES 

/NO'-CHECK IT 

/BR IF BAD 

/ END OF PATTERN? 

/BR IF NO 

/ YES 



/SAVE GOOD OATA 

/SAVE GOOD ADDRESS 

/SAVE BAD DATA 

/SAVE BAD ADDRESS 

/SAVE THE BYTE NUMBER 



/ SETUP TO TAKE ERROR 1 EXIT 
/ TAKE ERROR 1 EXIT 
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1735 


006534 


105737 


001612 




5$: 


TSTB 


MPAKMBK 


/DATA IS GOOD BUT WHAT ABOUT 


1736 
















/ THE ERROR FLAG 


1737 


006540 


100002 








BPL 


6& 


/BR IF ERROR FL AG*0 


1738 


006542 


062716 


000004 






ADD 


»4, UPJ 


/ SETUP TO TAKE ERR0R2 EXIT 


1739 


006546 


00020? 






6$i 


RTS 


PC 


/RETURN 


1740 


















1741 










/f*****a*******a«*««*a«*ft*9**ftft*Aft***ft***4**ft*«****ft**«!****siS(asi** 


1742 


















1743 










.SBTTL 




COUNT SOFT DATA ERROR 




1744 


















1745 










/CALL 








1746 












JSR 


R0,«»»CNTSFT 




1747 












RETURN 


FOR SUf-T RETRY 




1748 












RETURN 


FOR HARD 




1749 


















1750 


006550 


005237 


001206 




Cntsft: 


INC 


##SOFTNM 


/ COUNT THIS SOFT ERROR 


1751 


006554 


005337 


001224 






DEC 


PSRDTRYS 


/REREAD THE RECORD? 


1752 


006560 


002011 








BGE 


IS 


/BR IF YES 


1753 


006562 


013737 


001260 


001224 




MOV 


##MAXRUS,**RUTRYS 


/RESET REREAO COUNT 


1754 


006570 


163737 


001260 


001206 




SUB 


##MAXHUS, #»SUFTNM 


/DON'T COUNT AS SOFT 


1755 


006576 


005337 


001206 






DEC 


S>#SQfTNM 




1756 


006602 


005720 








TST 


CR0 J ♦ 


/STEP OVER THE REREAD RETURN 


1757 


006604 


000200 






is: 


RTS 


R0 


/RETURN 


1758 










//***«* 






************************** 


1759 


















1760 










•SBTTL 




COUNT HARD ERROR 




1761 


















17&2 










/CAL 








1763 










/ 


JSR 


RCJ, **CNTHRD 




1764 










/ 


RETURN 


MORE ERRORS ALLOWED 




1765 










/ 


RETURN 


MAX* ERRORS HAVE OCCURHEO 


1766 










1 








1767 


006606 


005237 


001210 




CNTHRDI 


INC 


P#HAKDNM 


/COUNT THIS HARD ERROR 


1768 


006612 


023737 


001210 


001262 




CMP 


P#HANDNM, t*MAXERR 


/MAX, HARD ERRORS OCCURRED 


1769 


006620 


002401 








BLT 


1$ 


/BR IF NO 


1770 


006622 


005720 








TST 


CR0J* 


/TAKE FATAL EXIT 


1771 


006624 


000200 






is: 


RTS 


R0 


/RETURN 
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1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1783 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
17^0 
1791 



1803 
1804 
1805 



* SBTTL SAVE AND RESTORE K0-K5 ROUTINES 

MS AVE R0»R5 
MCALL! 

/ * SAVREG 

7 *UPON RETURN FROM SSAVRtG THE STACK WILL LOOK LIKE I 

;* 

M70P-=*«C*16) 

;* *a»»-c*i8) 

J* *6»»» R4 
} * *8»— R3 
J**10 R2 

?**ia»«-Ri 

|*+14»«-R0 

ssavreg: 



1792 


006626 


010046 




MOV 


R0,»CSP) 




i /push 


R0 


ON 


STACK 


1793 


006630 


010146 




MQV 


Ri,»CSP) 




1 /PUSH 


Rl 


ON 


STACK 


1794 


006632 


010246 




MOV 


R2,»C3P) 




; /push 


R2 


ON 


STACK 


1795 


006634 


010346 




MOV 


R3,- CSP) 




//push 


R3 


ON 


STACK 


1796 


006636 


010446 




MOV 


R4,»(SH) 




//PUSH 


R4 


ON 


STACK 


1797 


006640 


010546 




MOV 


R5,«CSP) 




mpusm 


R5 


ON 


STACK 


1798 


006642 


016646 


000022 


MQV 


22CSP) 


CSP) 


/ /save 


PS 


OF 


MAIN FLOW 


1799 


006646 


016646 


000022 


MOV 


22 (SP) ,<* 


CSP) 


J, 'SAVE 


PC 


OF 


MAIN FLOW 


1800 


006652 


016646 


000022 


MOV 


22CSP) ,« 


CSP) 


/ / SAVE 


PS 


OF 


CALL 


1801 


006656 


016646 


000022 


MOV 


22(SP) ,m 


CSP) 


f /SAVE 


PC 


OF 


CALL 


1802 


006662 


000002 




R T I 















/♦RESTORE RH-Rb 

;*call: 



1806 








/* RESREG 








1807 


006664 






SRfcSREG: 








1808 


006664 


012666 


000022 


MOV 


CSP)* 


22 CSP) 


//RESTURE PC OF CALL 


1809 


006670 


012666 


000022 


MOV 


CSP) * 


22 CSP) 


; / RESTORE PS OF CALL 


1810 


006674 


012666 


000022 


MOV 


CSP)* 


22 CSP) 


| ; RESTORE PC OF MAIN 


1811 


006700 


012666 


000022 


MOV 


CSP)* 


«J2CSP) 


^RESTORE PS OF MAIN 


1812 


006704 


012605 




MOV 


CSP) * 


H5 


//POP STACK INTO R5 


1813 


006706 


012604 




MOV 


CSP) * 


N4 


//POP STACK INTO R4 


1814 


006710 


012603 




MOV 


CSP) * 


R3 


;/POP STACK INTO R3 


1815 


006712 


012602 




MOV 


CSP) * 


Hi 


//POP STACK INTO R2 


1816 


006714 


012601 




MQV 


CSP) * 


HI 


I /POP STACK INTO HI 


1817 


006716 


012600 




MOV 


CSP) * 


K0 


/ / POP STACK INTO R0 


1818 


006720 


000002 




RTI 









1819 
1820 
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1821 
1822 



| I ****************** *«ft*«****»a*«*«**4**lit**»*****l!|*3lE»«f*»*«*«l**»«i* 



1823 






.SBTTL 




CASSETTE PRIMITIVES 


ROUTINE 


1824 














1825 






J CALLED 


VIA 


JSR PC, CPUNCTION) 




1826 






/WITH R0 POINTING TO J 




1827 














1828 








.BYTE 







1829 








„8YTE 


DR I V t # CU"A, l<>b) 




1830 








,WORD 


POINTER TU STATUS/ERRUR BYTE 


1831 








.WORD 


BUFFER ADDRESS 




1832 








.WORD 


BYTE CUUNT 




1833 














1834 


006722 


010746 


wpg: 


MQV 


PC,- CSP) 


I WRITE A FILE GAP 


1835 


006724 


000415 


FUNTAB J 


BR 


IOCQM 




1836 


006726 


010746 


WRITE! 


MOV 


PC, -CSP) 


/ WRITE A BLOCK OF DATA 


1837 


006730 


000413 




BR 


IOCOM 




1838 


006732 


010746 


READ: 


MOV 


PC, -CSP) 


I READ A BLOCK OF DATA 


1839 


006734 


000411 




BR 


IOCOM 




1840 


Q06736 


010746 


bsfgs 


MOV 


PC , w CSP) 


/ BACK SPACE A FILE GAP 


18«l 


006740 


000407 




BR 


IOCOM 




1842 


006742 


010746 


BSBGI 


MOV 


PC,- ISP) 


/ BACK SPACE A BLOCK GAP 


1843 


006744 


000405 




BR 


IOCOM 




1844 


006746 


010746 


SFPG1 


MOV 


PC, -CSP) 


/ SPACE FORWARD A FILE GAP 


1845 


006750 


000403 




BR 


IOCOM 




1846 


006752 


010746 


sfbg: 


MOV 


PC, -CSP) 


/ SPACE FORWARD A BLOCK GAP 


1847 


006754 


000401 




BR 


IOCOM 




1848 


006756 


010746 


REWIND : 


MQV 


PC, -CSP) 


/ REWIND TO BEGINNING OF TAPE 


1849 


006760 


162716 006724 


IOCOMJ 


SUB 


•FUNTAB, CSP) 


IPC ON STACK IS USED TO DETERMINE 


1850 


006764 


006216 




ASR 


CSP) 


/ FUNCTION 


1851 


006766 


032777 000040 


172244 CMKROY 1 


BIT 


#40, DTACSL 


IREADY BIT UP? 


1853 


006774 


001774 




BEB 


CMKRUY 


/WAIT ON IT 


1853 


006776 


012667 000166 




MQV 


CSP)*,hUNLUC 


/PUT FUNC, IN BITS 1-3 OF FUNLQC 


1854 


007002 


010146 




MOV 


R1,-USP) 




1855 


007004 


010046 




MOV 


R0,*CSP) 




1856 


007006 


012701 007162 




MOV 


»CASPAR,R1 


/PT. TO INT, HANDLER PAR AM , BLK, 


1857 


007012 


016011 000002 




MOV 


2CR0J , CRD 


;PTK. TO ST/ERR WD. INTO P.BLK, 


1858 


007016 


105031 




CLRB 


PCRU* 


/ZERO ST/ERR BYTE 


1859 


007020 


005200 




INC 


R0 




I860 


007022 


152067 000143 


CHANOK ! 


BISB 


CR0) * , FUNLUC* 1 


/COPY CM AN t NUM. TO FUNC, WORD 


1861 


007026 


005720 




TST 


C R ) * 




1863 


007030 


012061 000002 




MOV 


CR0)*,2CR1) 


/BUFF* ADR 8 


1863 


007034 


011021 




MOV 


CR0) , CK1)+ 


/BYTE COUNT 


1864 


007036 


005721 




TST 


CRD ♦ 




1865 


007040 


15271 1 000101 




BISB 


#101, CRD 


/ADO INT, ENABLE AND 60 BITS 


1866 












/TO THE FUNCTION 


1867 


007044 


011177 172170 


DOf-UN? 


MOV 


CRD , *>TACSL 


/START THE FUNCTION 


1868 


007050 


012600 




MOV 


CSP) *,R0 




1869 


007052 


012601 




MOV 


CSP)*,Ri 




1870 


007054 


00020? 




RTS 


PC 
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1 37 1 








/I****************************** 




*************************** 










/ 










mi j 








•SBTTL 




CASStTTE INTERRUPT HANDLER 


1874 








f 










1 875 








1 










1876 


007056 






CASINT 5 










1877 


007056 


* z ° 






MQV 


Rl,- (SH) 


//PUSH 


Rl ON STACK 




007060 


10246 






MOV 


R2,«£SP) 


MPU5M 


R2 ON STACK 


* 


007062 


016702 


_ 




MOV 


TACSL,N2 






1880 


007066 


012701 


007 1 64 




MOV 


#CBCNT»R1 




/ PAR AM » BLOCK 


1881 


007072 


1057 12 






TSTB 


(R2) 




/ TRANSFER REQUEST? 


1 882 


007074 


1004 1 1 






BM| 


TREQ 




/YES 


1 883 


007076 


01 1204 






MOV 


(R23 f R4 






I884 


007 100 


000304 






SWAB 


R4 






1885 


007102 


052704 


00000 1 




BIS 


»1,R<* 




/SET THE DONE BIT 


1886 


007 1 06 


1 10451 






MOVB 


R4,«»«®iKl) 




/LOAD ST/ERR BYTE 


If al 


0071 10 


105012 






CLRB 


(R2) 




/ TURN OFF INTERS, 


1 888 


007 112 


012602 






MOV 


(SP) +,K2 


/ IPOP 


STACK INTO R2 




007 114 


1 2601 






MQV 


tSPJ *,Hl 


/ / POP 


STACK INTO Rl 


1 fi9oi 


PB7 110 








RTI 








1891 








/ 










1892 


007 1 20 


< naff 3 




TRfcQ S 


DEC 


IRi ) * 






1893 




: f 






BMI 


RWILBS 




1 WHEN COUNT NEG , , DQNt 






03c7 1 2 


00000 4 




BIT 


#4, {Hi) 




ICHECK READ OR WRITE F UNC 


1895 


007 1 30 








BNE 


RE ADR 






1 896 




113177 


_ _ . _„ 

* 




MOVB 


f (R 1 ) * t »T ADBL 




/WRITE BYTE 


1897 


007 136 








BR 


RWDQNE 






1898 


01017 4 flOl 
BIO f 1 4 *«J 


117731 


1 


HfcAQR S 


MOVB 


0TADBL»*(RU* 




/READ BYTt 




007 1 44 


005241 




RwDQNE I 


INC 


» (Rl ) 




/BUMP ADDR 9 


1 900 


007 1 46 


000402 






BR BACK 






/ GET BACK 


1 901 








/ 










1902 


007 150 


0527 1 2 


fit f% tA th 3 01 


HW ILB5 ! 


BIS 


#20, IRc!) 




UNIT, LAST BYTE SEU , 


1 933 


007154 






BACK S 










1904 


007154 


012602 






MOV 


ISP)+,W2 


/ / pup 


STACK INTO K2 


1 905 


007156 


012601 






MOV 


ISP)*,*1 


/ /POP 


STACK INTO K I 


1 906 


007 1 60 


000002 






RTI 








1 907 


















1908 








/ 










1 909 








I CASSETTE INTER. HANDLER PAR AM , 


BLOCK 




1910 








/ 










1911 


007162 


d 01 01 (51 01 i3l 
10010010 




CASPARS 


.WORD 







/ STATUS/ERROR POINTER 


1912 


007164 


000000 




CBCNTJ 


e WORD 






/ WORKING BYTE COUNT 


1913 


007166 


000000 






„ WORD 







/ WORKING BUFFER ADDRESS 


1914 


007170 


000000 




funloc: 


.WORD 






JFUNC, WORD BUILT HERE 


1915 


















1916 
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1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
19«9 
1950 
195| 
1952 
1953 
1954 
1955 
1956 
1957 
195® 
1959 
I960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
197| 
1972 



eSBTTL DOUBLE LENGTH B I N AK Y TO DECIMAL ASCII CONVERT ROUTINE 
/J*************************************************************** 



007172 
007174 
007200 
007204 
007210 
007212 
007214 
007222 
007226 
007232 
007234 
007236 
007240 
007242 
007244 
007246 
007250 
007252 
007254 
007256 
007260 
007264 
007266 
007270 
007272 
007274 
007276 



007302 
007304 
007306 
e07310 
007312 
007314 
007316 
007320 
007322 
007324 
007326 
007330 
007332 
007334 



001357 
105020 
104413 
000207 
145000 
035632 



002765 
113200 
000230 
041100 
000017 
103240 



i *this routine will convert 
/♦decimal (ascii) number « the 
;*positive. 

faCALL 

I* MOV #PNTK,-(5PJ 

/» JSR PC,##$UB2D 

/* RETURN 



104412 
016602 
012700 007352 
010066 000002 
012201 
012202 

012767 000012 

012704 007302 

012705 007304 
005003 
161401 
005602 
161502 
002402 
003203 
000772 
062401 
005502 
062402 
022525 
©52703 
110320 
005327 



023420 



SDB2DI 5AVREG 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
SUB 
SBC 
SUB 
BLT 
INC 
BR 
ADD 
ADC 
ADD 
CMP 
BIS 
MOVB 
DEC 
.WORD 
BNE 
CLRB 
RESREG 
RTS 

STNPWRI 145000 
35632 
160400 
2765 
113200 
230 

041100 
17 

103240 
1 

23420 



1750 



1SX 

2SS 



is; 



4$| 



2CSPJ ,K2 

#$DECVL,R0 

Rtf,2 ISP) 

lR2)t,Kl 

(R2)*,N2 

$10«,4$ 

8$TNPWN,R4 

*STNHWH+2,R5 

R3 

CR4) ,R1 

Hi 

CR53 #Rd 

3S 

R3 

£$ 

IR4)+,K1 

R2 

CR4)+,K2 
(R5) * » (Rb) ♦ 

#*0,K3 
R3, CR0J+ 

(PC)* 


IS 

(R0) * 



32-tfIT BINARY NUMBER TO AN UNSIGNED 
SIGN OF THE BINARY NUMBER MUST BE 



/ / POINTER TO LOW WORD OF BINARY NUMBER 



J / THE FIRST ADDRESS OP ASCIZ 
||IS ON THE STACK 



/ /SAVE REGISTERS 

//PICKUP THE DATA POINTER 

/ /GET ADDRESS OF "SDECVL" STRING 

I/PUT ADDRESS OF ASCIZ STRING ON STACK 

/ /PICKUP THE BINARY NUMBER 

//SET UP TO DO 10 CONVERSIONS 
| / ADDRESS OF TEN POWER 

I / CLEAR PARTIAL 

I / SUBTRACT TEN POWER 



I /BR IF TEN POWER TO LARGE 
//ADO 1 TO PARTIAL 
I / LOOP 

// RESTORE SUBTRACTED VALUE 



//MOVE TO NEXT TEN POWER 
/ / CHANGE PARTIAL TO ASCII 
//SAVE IT 
/ /DONE? 

/ /BR IF NO 
/ /TERMINATOR 

I / RESTORE REGISTERS 

//RETURN 

/ / 1 ,0E09 

/ /l,0E(fl8 

/ / 1.0E07 

//1.0EU6 

/ / 1 ,0E05 

/ / l,0t04 

I ; i ,0E0i 



T A 1 1 DATA RELIABILITY MAINDEC-1 1-DZTAfc-c MAC Y 1 1 27(10106) 17.MAR-77 14155 PAGE 4S 

DZTAtC.Pll 17-MAR-7? 14:52 0UU8LE LENGTH BINARY TO UECIMAL ASCII CONVERT ROUTINE 



1973 
1974 
1975 
197 b 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1986 
1989 
1990 



007336 000144 
007340 000000 
007342 000012 
007344 
007346 
007350 
007352 



144 


12 


1 



//1.0E02 

/ / l ,0tui 
I ; l ,0E0® 



sdtcvl! .dlkb 12, / /reserve storage for asciz string 

.sbttl single length binary to decimal asciz routine 

itthis routine will convent a 16-bit unsigned binary number to an 

/ *uns i gned decimal asciz number, 

;*call 

/* mov numbtr,»(sp) //put binary number on the stack 

/* jsr pc,#»s5b2l> ; /call 

i* return / i address of the 1st asciz char ( is on the stack 



1991 


007366 


016667 


000002 000022 


SSB2D • 


MOV 


2(sp; , is 


/ /SAVE BINARY NUMBER 


1992 


007374 


012746 


007416 




MOV 


S>1$,«(3PJ 


/ /SET POINTER 


1993 


007400 


004737 


007172 




JSR 


PC,»*SUBe?D 


//CALL D0U8LE LENGTH CONVERT 


1994 


007404 


062716 


000005 




ADO 


#5, (SPj 


/ J ONLY ALLOW FIVE CHARACTERS 


1995 


007410 


012666 


000002 




MOV 


(SP)*,tS(SP) 


//PICKUP POINTER 


1996 


007414 


000207 






RTS 


PC 


/ /RETURN 


1997 


007416 


000000 


000000 


is: 


a WORD 


0,0 





1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 



, SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

/♦THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
/ *LE AD I NG NUMBERS j 
/ *C ALL 

//FIRST ADDRESS OF ASCIZ STRING 



MOV 
JSR 



#NUMADK,-ISPJ 
PC, **$SUPK3 



007422 
007424 
007430 
007432 
007434 
007440 
007442 
007444 



010046 
016600 
105710 
001403 
122720 
001773 
005300 
010067 
104401 



007452 
007454 
007456 
007460 



012600 
012616 
000207 



MOV 

MOV 

TSTB 

BEQ 

CMPB 

BEQ 

DEC 

MOV 

TYPE 

a WORD 

MOV 

MOV 

RTS 



R0,»lSP) 
4(SPJ ,R0 

CR0J 
2$ 

»*0, CRM)* 
IS 

K0 

R0,iS 



CSP)*,R0 

ISP)*, (SP) 
PC 



//SAVE R0 

/ /PICKUP THE POINTER 
/ /TERMINATEOR? 
//BR IF YES 

//IS THIS AN ASCII "0" 1 
//BR IF YES 
//BACKUP BY "1" 
//SAVE FOR TYPING 
//GO TYPE 

/ /ASCIZ POINTER GOES HERE 

//RESTORE R0 

/ /RESTORE THE STACK 

| /RETURN 



• SBTTL READ AN OCTAL NUMBER FROM THE TTY 

I ; ******** *i«*»*6****at**ftAft**#****ar«ftft*a**«r*iais*aji!***isi**ii>* 
/*THI5 ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY ANO 
/♦CHANGE IT TO BINARY , 
/ *C ALL I 

/ * ROOCT //READ AN OCTAL NUMBER 

/* RETURN HERE / /LOW ORDER BITS ARE ON TOP OF THE STACK 
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2029 /* / /HIGH ORDER BITS ARE IN SMIOCT 

2030 



2031 


007462 


011646 




SRUOCTJ 


MOV 


(SP) ,-CSP) 


//PROVIDE SPACE FOR THE 


2032 


007464 


016666 


000004 


000002 


MOV 


4(SPJ ,e!(SP) 


/ /INPUT NUMBER 


2033 


007472 


010046 






MOV 


R0,»(SP) 


I / PUSH R0 ON STACK 


2034 


007474 


010146 






MOV 


R1,*(SH) 


//PUSH Rl ON STACK 


2035 


007476 


010246 






MOV 


R2, -ISP) 


//PUSH R2 ON STACK 


2036 


007500 


104410 




is: 


RDLIN 




//READ AN ASCIZ LINE 


2037 


007502 


012600 






MOV 


(SP) *,K0 


//GET ADDRESS OF 1ST CHARACTER 


2038 


007504 


005001 






CLR 


Rl 


I /CLEAR DATA WORD 


2049 


007506 


005002 






CLR 


R2 




2040 


007510 


112046 




<£§: 


MOVB 


(R0) (SP) 


//PICKUP THIS CHARACTER 


2041 


007512 


001412 






BEQ 


3$ 


//IF ZERO GET OUT 


2042 


007514 


006301 






ASL 


Rl 


Z/*2 


2043 


007516 


006102 






RQL 


R2 




2044 


007520 


006301 






ASL 


Rl 


/ Z *4 


2045 


007522 


006102 






RQL 


R2 




2046 


007524 


006301 






ASL 


Rl 


//*8 


2047 


007526 


006102 






RQL 


R2 




2048 


007530 


042716 


177770 




BIC 


»"C7, (SP) 


/ /STRIP THE ASCII JUNK 


2049 


007534 


062601 






ADD 


(SP)*,*1 


//ADO IN THIS DIGIT 


2050 


007536 


000764 






BR 


2$ 


//LOOP 


2051 


007540 


005726 




3SI 


TST 


(SP)* 


//CLEAN TERMINATOR FROM STACK 


2032 


007542 


010166 


000012 




MOV 


HI, l*tSP) 


//SAVE THE RESULT 


2053 


007546 


010267 


000010 




MOV 


R2,SHIUCT 




2054 


007552 


012602 






MOV 


(SP)*,K2 


//POP STACK INTO R2 


2055 


007554 


012601 






MOV 


(SP)*,K1 


//POP STACK INTO Rl 


2056 


007556 


012600 






MOV 


ISP) *,K0 


//POP STACK INTO R0 


2057 


007560 


000002 






RTI 




/ /RETURN 


2058 


007562 


000000 




shioct: 


e WORD 


10 


/ /HIGH ORDER BITS GO HERE 
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2059 










2060 








.SBTTL 


WQUTINt TQ TYPt DRIVE 




206| 














2062 








1 C*LL 






2063 








1 JSR 


PC, MTHDWV 




206a 








1 






2065 














2066 














206? 


007564 


104401 


013326 


TPURV: TYPE 


,MSG15 


1" DRIVE " 


2068 


007570 


11374b 


001613 


MOVB 


#«PAKM»K*1 ,- tSP) 


IPICKUP THE DRIVE NUMBER 


2069 


007574 


042716 


177776 


BIC 


#"C 1 » (3P) 


J3TRIP ANY JUNK 


2070 


007600 


062716 


000101 


ADD 


#'A, 15P) 


1 MARE IT ASCIZ 


207| 


007604 


012667 


000006 


MOV 


ISP)*, IS 


f SAVE IT FOR TYPEUUT 


2072 


007610 


104481 




TYPE 




1 TYPE IT 


2073 


007612 


007616 




IS 






2074 


007614 


000207 




RTS 


PC 




2075 


007616 


000000 




ISi ,WORQ 


Id 
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2076 Fj**ft**ft6aa4**«!&&a*««*ft»*s*ii!*a**^ 
2077 



2078 








.SBTTL 




NQUTINfc TU ASK 


THE OPERATOR WHAT DRIVE C5) TU TEST 


2079 
















2080 








J CALL 








2061 








1 


JSR 


PC, »*ASKOKV 




2082 








1 


RETURN 




;NUTE: R0 AND Nl ARE DESTROYED 


2083 
















2084 


007620 


104401 


013336 


ASKDRV » 


TYPE 


,MSGURV 


l«C*LF>"DRIVE(S)? «« 


2085 


007624 


005067 


171422 




CLR 


DRVKfcY 




2086 


007630 


104410 






RDLIN 




IGO GET A DRIVE 


2087 


007632 


012600 






MOV 


CSP) *,K0 


1 SETUP TO CHECK FOR VALID DKIVECS) 


2088 


007634 


105710 






TSTB 


#R0 


JWAS A DRIVE SELECTED? 


2089 


007636 


001425 






BEQ 


NOTLl»L 


J BR IF NO 


2090 


007640 


012701 


001252 




MOV 


#DRVKfcY ,Ki 




2091 


007644 


122710 


000101 


LOUPI 


CMPB 


» # A, »RSfl 


IWAS DRIVE "A" SELECTtD? 


2092 


007650 


001002 






BNE 


NOTA 


IBR IF NO 


2093 


007652 


112021 






MOVB 


tR0)*, IRU* 


ISET KEY FOR DRIVE "A" 


2094 


007654 


000411 






BR 


NEXT 




2095 


007656 


122710 


000102 


nqta: 


CMPB 


»*B,#RW 


IWAS DRIVfc. "B" SELECTtD? 


2096 


007662 


001002 






BNE 


NOTB 


J BR IF NO 


2097 


007664 


112021 






MOVB 


(R0 ) ♦ , IR1J + 


ISET KEY FOR DRIVE "B" 


2098 


007666 


000404 






BR 


NEXT 




2099 


007670 


122710 


000054 


nqtb: 


CMPB 


»54,#R0 


IWAS A COMMA TYPED? 


2100 


007674 


001006 






BNE 


NOTLUL 


IBR IF NO 


2101 


007676 


105720 






TSTB 


CR0J* 


IDUMP THE COMMA 


2102 


007700 


105710 




NESTS 


TSTB 


S»R0 


1 TERMINATOR? 


2103 


007702 


001406 






BEQ 


EXIT 


IBR IF YES 


2104 


007704 


022701 


001254 




CMP 


#DRVKtY+2,Kl 


ITWO DRIVES SELECTED? 


2105 


007710 


101355 






BMI 


LOOP 


IBR IF NO 


2106 


007712 


104401 


001202 


N0TLGL1 


TYPE 


,3QUtS 


1 ILLEGAL INPUT DETECTED 


2107 


007716 


000740 






BR 


ASKDKV 


1 GO TRY AGAIN 


2108 


007720 


005767 


171326 


exit: 


TST 


DRVKfcY 


1 ANY DRIVfc SELECTED? 


2109 


007724 


001772 






BEQ 


NOTLGL 


IBR IF NO 


2110 


007726 


000207 






RTS 


PC 





2111 
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2H2 
















2113 








9 S8TTL 


ROUTlNfc 


TO INPUT CSR| 


i DBR > AND VECTOR ADDRESS AND PRIORITY 


2114 








/CALL 








2115 








IJSR 


PC , MASK ADR 




2116 
















2117 


007730 


010046 




ASK ADR 1 


MQV 


R0,«CSH3 


/SAVE K0 


2118 


007732 


104401 


013352 


IS! 


TYPE 


f MSG ASK 


/ "TACS?" 


2119 


007736 


104411 






RDOCT 




/GET VALUE 


2120 


007740 


012600 






MOV 


CSPJ *,K0 


/PICK UP THE OCTAL NUMBER 


2121 


007742 


001411 






BEO 


3S 


IIP "0" USE OLD VALUES 


2122 


007744 


020027 


160000 




CMP 


K0, #160000 


1 MAKE SURE IT IS A BUS ADDRESS 


2123 


007750 


103770 






BLO 


IS 




2124 


007752 


010037 


001240 




MQV 


R0, ##TAC5L 


/SAVE THE TACS 


2125 


007756 


062700 


000002 




ADD 


*2,RkJ 


/STEP TO TADB ADDRESS 


2126 


007762 


010037 


001242 




MOV 


R0,#»TADBL 


/AND SAVE IT 


2127 


007766 


104401 


013361 


3ss 


TYPE 


i MSG VEL 


1 "VECTOR?" 


2128 


007772 


104411 






RDOCT 






2129 


007774 


012600 






MOV 


CSPJ*,H0 




2130 


007776 


001411 






BEQ 


5S 




2131 


010000 


020027 


001000 




CMP 


H0,#10tt0 


/MAKE SURE ADDRESS IS IN VECTOR 


2ii2 


010004 


103370 






BMIS 


3$ 




2133 


010006 


010037 


001244 




MQV 


R0, MTAVEC 


/SAVE AS VECTOR ADDRESS 


2134 


010012 


062700 


000002 




ADD 


82,R*> 




2135 


010016 


010037 


001246 




MOV 


R0, #*TAVEC*2 




2136 


010022 


104401 


013372 


5SS 


TYPE 


iMSGPRX 


/ASK FOR PRIORITY 


2137 


010026 


104411 






RDOCT 






2138 


010030 


012600 






MOV 


CSPJ *,H0 




2139 


P10332 


001413 






BEQ 


6$ 


/IF "0" USE OLD VALUE 


2l«0 


Q10034 


020027 


000007 




CMP 


R0,#/ 


/MAKE SURE ITS VALID 


2H1 


010040 


101370 






Bh I 


5$ 




21«2 


010042 


000300 






SWAB 


R0 


/PUT INTO HIGH BYTE 


2H3 


010044 


006200 






ASR 


H0 


/AND SHIFT 


2Ha 


010046 


006200 






ASR 


R0 


/INTO PROPER 


21«5 


010050 


006200 






ASR 


H0 


/POSITION 


2H6 


010052 


042700 


177437 




BIC 


#~C<34kJ» 


/SAVE ONLY PRIORITY BITS 


2H7 


010056 


010037 


001250 




MOV 


R0, #»TAPRIU 


/ STORE IT AWAY 


2l«8 


010062 


104401 


013405 


63 I 


TYPE 


#MTALS 


ZTACSs" 


2149 


010066 


016746 


171146 




MOV 


tacsl,-csp; 


/ /SAVE TACSL FOR TYPEOUT 


2150 


010072 


104402 






TYPOC 




//GO TYPE — OCTAL ASCII CALL DIGITS) 


2151 


010074 


104401 


013414 




TYPE 


, MTAUB 


/ "TADB"" 


2152 


010100 


016746 


171136 




MOV 


TADBL,«CSPJ 


/ /SAVE TADBL FOR TYPEOUT 


2153 


010104 


104402 






TYPOC 




/ /GO TYPE — OCTAL ASCII CALL DIGITS) 


2J5« 


010106 


104401 


013423 




TYPE 


,MTAVEL 


/ "VECTOR"" 


2155 


010112 


016746 


171126 




MOV 


TAVEC,- CSPJ 


/ /SAVE TAVEC FOR TYPEOUT 


2156 


010116 


104402 






TYPOC 




//GO TYPE — OCTAL ASCII CALL DIGITS) 


2157 


010120 


104401 


013435 




TYPE 


f MT APR 1 


/"PRIORlTYa" 


2158 


010124 


016746 


171120 




MQV 


TAPRIU,*CSP) 


/ /SAVE TAPRIO FOR TYPEOUT 


2159 


010130 


104402 






TYPOC 




/ / GO TYPE — OCTAL ASCII CALL DIGITS) 


2160 


010132 


104401 


613451 




TYPE 


»MSGUK 


/ "OK?" 


2161 


010136 


104407 






RDCMR 




/GO READ ONE CHARACTER 


2162 


010H0 


012600 






MOV 


CSPJ *,K0 


/GET IT 


21&3 


010142 


022700 


000015 




CMP 


#15#K0 


/ IS IT "CK"? 


2164 


010146 


001406 






BEQ 


n 


/BRANCH IF YES 


2165 


010150 


022700 


000131 




CMP 


#' Y, K0 


/IS IT "Y"? 


2166 


010154 


001403 






BEQ 


7$ 


/IT WAS 


2167 


010156 


104401 


001202 




TYPE 


,SQUfcS 


/ TYPE "7" 
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2168 
2169 
2170 
2171 



010162 
010164 
010170 
010172 



17.MAR-77 14:52 

000663 
104401 
012600 
000207 
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ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY 



BR 

TYPE 

MOV 

RTS 



f MYEa 
CSP)*,K0 

PC 



/ AND LET HIM CORRECT 
/TYPE OUT "YES" 

/RESTORE R0 
/AND RETURN 
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2172 ;;t*******«i4(*****«i********t*******************)»************ 

2173 7 

2174 .5BTTL ROUTANt TU EXAMINE DRIVE CS) FOR AVAILABLITY 
2175 

2J76 7CALLS 



2177 










7 


MOV 


•DRVKEY ,HB 




2178 










I 


JSR 


PC,**EXAM 


;ri is destroyed 


2179 










1 


NORMAL 


RETURN 




2180 










f 


ERROR 


KETURN 




2181 


















2182 


010174 


013701 


001240 




EX AM 5 


MOV 


*#T AL5L , R 1 


JPICKUP THE "CONTROL & STATUS" REG, ADR 


2183 


010200 


005011 








CLR 


CRU 


7 DRIVE*"A" , PUNCTION" n Wf-G" 


218« 


010202 


122710 


000101 






CMPB 


«'A, tRW) 


IEXAMINE DRIVE "A"? 


2185 


010206 


001402 








BEQ 


IS 


7 BR IF YES 


2186 


010210 


052711 


000400 






BIS 


• UNIT, IK 1 J 


7 SELECT DRIVE "B» 


2187 


010214 


032711 


000040 




US 


BIT 


#WEAUY, [Hi ) 


IWAIT ON READY 


2188 


010220 


001775 








BEQ 


1$ 




2189 


010222 


00571 1 








TST 


CRD 


7 ANY ERROR? 


2190 


010224 


100024 








BPL 


4$ 


7 BR IF NO 


2191 


010226 


03271 1 


001000 






BIT 


•OFFLINE, CRU 


1 ERROR DUE TO "OFF LINE"? 


2192 


010232 


001017 








BNE 


3S 


7 BR IF YES 


2193 


010234 


03271 1 


010000 






BIT 


f WRTLOLK , IK 1 J 


7 ERROR DUE TO "WRITE LOCK"? 


2 1 9<> 


010e«*0 


00 1411 








BEQ 




IBR IF NO 


2195 


010242 


122777 


000201 


170670 




CMPB 


*BlTW7iBIT00,9SWR 


; "READONLY" SELECTED? CNDlPAS) 


2196 


010250 


001412 








BEQ 


4S 


7 BR IF YES 


219? 


010252 


122777 


000203 


170660 




CMPB 


• BIT07 JBITkJl IBIT00 


l»SWR HRD2PAS)? 


2198 


010260 


001406 








BEQ 


4$ 


;br if yes 


2199 


010262 


000403 








BR 


3S 


7 TAKE THE ERROR EXIT 


2200 


010264 


032711 


020000 




i$l 


BIT 


• LEAUEK, CRU 


7 ERROR DUE TO "CLEAR LEADER"? 


2201 


010270 


001002 








BNE 


4S 


7BR IF YES 


2202 


010272 


062716 


000002 




35! 


ADD 


»2, CSPJ 


f TAKE ERROR RETURN 


2203 


010276 


000207 






4s: 


RTS 


PC 


7 RETURN 
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2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 



.SBTTL TYPE ROUTINE 

7*HOUTINE TO TYPE ASLM MESSAGE s MESSAGE MUST TERMINATE WITH A BYTE, 
MTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 



;*NOTEl : 

;*note2: 
;*note3: 

I * 

;*call: 

7*1) USING A 
7* TYPE 
7 *UR 

7 * TYPE 
7 * MES ADR 

7* 



SNULL UQNTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER « 
SF ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER « 



TRAP INSTRUCTION 
,MISADN 



J 7 MES ADR IS FIRST ADDRESS OF AN ASCIZ STRING 



2221 


010300 


105767 


170653 


STYPES 


TSTB 


STPFLG 


; ; IS THERE A TERMINAL? 


2222 


010304 


100002 






BPL 


1$ 


;;br if yes 


2223 


010306 


000000 






HALT 




7 7 HALT MERE IF NO TERMINAL 


2224 


010310 


000407 






BR 


3§ 


1 J LEAVE 


2225 


010312 


010046 




1S> 


MOV 


R0,*iSP} 


7 7 SAVE R0 


2226 


010314 


017600 


000002 




MOV 


P2CSPJ ,R0 


7 7 GET ADDRESS OF ASCIZ STRING 


2227 


010320 


112046 




2§! 


MOVB 


(R0)+,-csp; 


IIPUSH CHARACTER TO BE TYPED ONTO STACK 


2228 


010322 


001005 






BNE 


4S 


7 7 BR IF IT ISN'T THE TERMINATOR 


2229 


010324 


005726 






TST 


CSPJ* 


7 7 IF TERMINATOR POP IT OFF THfc STACK 


2230 


010326 


012600 




60s; 


MOV 


CSPJ*, KB 


f 7 RESTORE R0 


2231 


010330 


062716 


000002 


3S S 


ADD 


»2, CSPj 


; 7 ADJUST RETURN PC 


2233 


010334 


000002 






RTI 




7 7 RETURN 


2233 


010336 


122716 


000011 


4S • 


CMPB 


»HT, ISP) 


| | BRANCH IF <HT> 


2234 


010342 


001430 






BEQ 


as 




2235 


010344 


122716 


000200 




CMPB 


•CRLP , CSPJ 


7 / BRANCH IF NOT <CRLF> 


2236 


010350 


001006 






BNE 


53 




2237 


010352 


005726 






TST 


CSPJ * 


MPOP «CR><LF» EUUIV 


2238 


010354 


104401 






TYPE 




7 7TYPE A CR AND LF 


2239 


010356 


001203 






SCRLF 






2240 


010360 


105067 


000130 




CLRB 


SCHAWCNT 


7 1 CLEAR CHARACTER COUNT 


2241 


010364 


000755 






BR 


2S 


7 7 GET NEXT CHARACTER 


2242 


010366 


004767 


000056 


5S5 


JSR 


PC,$TYPEC 


?JGQ TYPE THIS CHARACTER 


2243 


010372 


126726 


170560 


611 


CMPB 


SFILLC* CSPJ* 


7 1 IS IT TIME FOR FILLER CHARS,? 


2244 


010376 


001350 






BNE 


25 


7/IF NO GO GET NEXT CHAR, 


2245 


010400 


016746 


170550 




MOV 


»NULL,-CSPJ 


J 7 GET # OF FILLER CHARS, NEEDED 


2246 














7 7 AND THE NULL CHAR, 


2247 


010404 


105366 


000001 


7§l 


DECS 


1 CSPJ 


MOOES A NULL NEED TO BE TYPED? 


2243 


010410 


002770 






BLT 


65 


I/BR IF NO— GO POP THE NULL OFF OF STACK 


2249 


010412 


004767 


000032 




JSR 


PC,STYPEC 


7 7 GO TYPE A NULL 


2250 


010416 


105367 


000072 




DECS 


SCHAKCNT 


7 7Do not count as a count 


2251 


010422 


000770 






BR 


7$ 


1 t LOOP 


2252 
















2253 








/HORIZONTAL TAB 


PROCESSOR 




2254 
















2255 


010424 


112716 


000040 


8$l 


MOVB 


• ' , CSPJ 


7 7 REPLACE TAB WITH SPACE 


2256 


010430 


004767 


000014 


9S1 


JSR 


PC,STYPEC 


I J TYPE A SPACE 


2257 


010434 


132767 


000007 


000052 


BITS 


•7, SUHARCNT 


7 7 BRANCH IF NOT AT 


2253 


010442 


001372 






BNE 


9S 


7 7 TAB STOP 


2259 


010444 


005726 






TST 


CSPJ* 


7 7POP SPACE OFF STACK 
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2260 




01 01 017 3/1 
«JW V 1 CM 










f Lps 


/ / GET NEXT CHARACTER 


226 1 










• 
• 






/ /WAIT UNTIL PRINTER IS READY 


2262 




1 1 77 








"PL 


ST YPfcC 




2263 


10 1 10 *• 3 Q 




tOtOCJIOvC 


170466 






3 fsp i «:f pit 


, fuUAl? UnAN TO DC T YrfcU INTU UAT A NCb 


2264 


CM ffl/1 


122766 


01010101 4 


010101 01 01 3 

<oiotot?0e 




TMDH 


$CR » 2 ISP J 


//IS CHARACTER A CARRIAGE RETURN? 


2265 




01 01 1 0101 X 
<OY) I tu V 3 








BNE 




/ t BRANCH IF NO 


2266 


n 1 oi a 7 a 




oiauot 1 /i 

10 10 10 to 4 *» 






CLRB 


SCHAKCNT 


1 / YES"*»CLEAR CHARACTER COUNT 


2267 


a 4 actin 

10 l (0310 10 


010101/1011* 








BR 


* *I Pt ! X 


t IEXIT 




1 0502 




01 010101 4 3 


oi oi a oia o 
to W) la low c 


is: 


CMP8 


*LF , c (SP J 


HIS CHARACTER A LINE FEED? 


2269 


010510 


001402 








BEQ 


STYPfcX 


J / BRANCH IF YES 


2270 




105227 








INCB 


IPCJ* 


1 f UUUN 1 THE Un*K*C T CK 


227 1 


n 4 oi(? 1 /t 


01 01 01 151 OI 01 






&CMARCNT 5 .WORD 





//CHARACTER COUNT STORAGE 


22 72 


010516 


aaa 3 a 7 






5TYPEXI 


RTS 


PC 




2273 




























eSBTTL 


TTY INPUT ROUTINE 




2275 


















2276 
















2277 










»ENABL 


LSS 






2278 


















2279 
















2260 










/ftSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 


22^1 










/•ROUTINE IS ENTERED FROM THE 


TRAP HANDLER, AND WILL 


2282 










^SERVICE THE 


f EST FUR CHANGE 


IN SOFTWARE SWITCH REGISTER TRAP CALL 


2283 










/ *WHEN 


OPERATING IN TTY FUG 


MODE « 


2264 


So 1 to 3C(0 


022767 


CTflta 4 7*. 
to to to i r Q 


. _ 
17 


SCKSWR S 


CMP 


•SWRtG , SWR 


//IS THE SOFT»SWR SELECTED? 


2265 


10 1 ia 3 C D 


Old 1 nT4 








BNE 


15S 


; / BRANCH IF NO 


2286 


*3 4 103 J!0 


105777 


1 7041 










/ /CHAR THERE? 


2287 


CM ffl^ ?/! 


1 01 01 01 7 1 








BPL 


155 


//IF NO, DON'T WAIT AROUND 


2268 


1 0536 




1 70404 






MOVB 


0STK»,»CSPJ 


//SAVE THE CHAR 




01 0542 










BIC 


• "CI 77, CSPJ 


/ / 5TRIP*0FF THE ASCII 


2290 




022726 


Dl 01 01 01 017 
|0 KJ 10 10 10 f 






CMP 


#7, CSPJ* 


//IS IT A CONTROL G? 


229^ 


10 J 133 Jfi 


an i 0)*>3 
ioki i igoc 








BNE 


15S 


//NO, RETURN TO USER 


2292 






170354 


00000 1 




CMPB 


SAUTUB,#1 


//ARE WE RUNNING IN AUTO-MODE? 


2293 


010562 


01171 1 a^<< 

10 K» * *♦ 3 o 








BEQ 


15S 


//BRANCH IF YES 


2294 


















2295 


1 0564 


4 anaai 
i is 4 mo i 








TYPE 


,4CNTLl» 


/ /ECHO THE CONTROLS C"G) 




010570 


I B t »4lfl 1 






SGTSWRi 


TYPE 


,SM5wH 


//TYPE CURRENT CONTENTS 


3397 






167376 






MOV 


swreg,-cspj 


//SAVE SWREG FOR TYPEOUT 


2298 


010600 


104402 








TYPOC 




//GO TYPE— OCTAL ASCII CALL DIGITS) 


2299 


010602 


104401 


1 1263 






TYPE 


,SMNtW 


//PROMPT FOR NEW SWR 


3*«? 


1 06<06 


01 01 ^01 11 fc. 

k7lu3\g>*Q 






19®$ 


CLR 


»CSPJ 


//CLEAR COUNTER 




01 4 til 4 01 

K> 1 06 * *• 


01 01 S% 01 /t 








CLR 


»CSPJ 


//THE NEW SWR 


2302 


010612 


1 05777 


7 

170326 




7SI 


TSTB 


PSTKS 


//CHAR THERE? 


2303 


010616 


1 00375 








BPL 


7S 


//IF NOT TRY AGAIN 


3*!fl«; 




















1 0620 


1 1 7746 








MOVB 


#STKB,-(SPJ 


//PICK UP CHAR 


2306 


1 0624 


0427 1 6 


4 77 nn 

1 7 600 






BIC 


f»"Cl '7, CSPJ 


/ /MAKE IT 7-BIT ASCII 


2307 




































2309 


















2310 


01 1 tkk. 

10 4 Id D JIC 


021627 


000025 




9$5 


CMP 


CSPJ i #25 


//IS IT A CONTROL-U? 


2311 


010634 


001005 








BNE 


10S 


//BRANCH IF NOT 


2312 


010636 


104401 


011240 






TYPE 


iSCNTLU 


//YES, ECHO CONTRUL-U C"U) 


2313 


010642 


062706 


000006 




20s; 


ADD 


»6,aH 


//IGNORE PREVIOUS INPUT 


2314 


010616 


000757 








BR 


19S 


/ /LET'S TRY IT AGAIN 


2315 
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2316 


















2317 


010650 


021627 


000015 




l0s: 


CMP 


CSPJ » #15 


//IS IT A «CR»? 


2318 


010654 


001022 








BNE 


16S 


//BRANCH IF NO 


2319 


010656 


005766 


000004 






TST 


4 CSPJ 


//YES, IS IT THE MRST CHAR? 


3320 


010662 


001403 








BEQ 


IIS 


| /BRANCH IF YES 


2321 


010664 


016677 


000002 


170246 




MOV 


2C8PJ t&sm 


//SAVE NEW SWR 


2322 


010672 


062706 


000006 




lis: 


ADD 


*6,SH 


//CLEAR UP STACK 


2323 


010676 


104401 


001203 




14$: 


TYPE 


,SC«LF 


//ECHO <CR» AND «LF» 


2324 


010702 


126727 


170227 


000001 




CMPB 


SINTAG,#S 


/ /RE*ENABLE TTY KBD INTERRUPTS? 


2325 


010710 


001003 








BNE 


15S 


/ / BRANCH IF NOT 


2326 


010712 


012777 


000100 


170224 




MOV 


*10U,»$TKS 


/ /RE-ENABLE TTY KBD INTERRUPTS 


2327 


010720 


000002 






15@! 


RTI 




//RETURN 


2323 


010722 


004767 


177522 




169 J 


JSR 


PC,*TYHEC 


//ECHO CHAR 


2329 


010726 


021627 


000060 






CMP 


CSPJ , 860 


//CHAR < 0? 


2330 


010732 


002420 








BLT 


16$ 


/ / BRANCH IF YES 


2331 


010734 


021627 


000067 






CMP 


CSPJ ,867 


//CHAR » 7? 


2332 


010740 


003015 








BGT 


16S 


//BRANCH IF YES 


2333 


010742 


042726 


000060 






SIC 


#60, CSHJ* 


//STRIP-OFF ASCII 


2334 


010746 


005766 


000002 






TST 


2CSPJ 


/ / IS THIS THE FIRST CHAR 


2335 


010752 


001403 








BEQ 


17S 


/ / BRANCH IF YES 


2356 


010754 


006316 








A5L 


CSPJ 


//NO, SHIFT PRE5ENT 


2337 


010756 


006316 








ASL 


CSPJ 


// CHAR OVER TO MAKE 


2338 


010760 


006316 








ASL 


CSPJ 


/ / ROOM FOR NEW ONE, 


2339 


010762 


005266 


000002 




17*: 


INC 


2 CSPJ 


//KEEP COUNT OF CHAR 


2340 


010766 


056616 


177776 






BIS 


-2CSKJ , CSPJ 


//SET IN NEW CHAR 


2341 


010772 


000707 








BR 


7S 


/ /GET THE NEXT ONE 


2342 


010774 


104401 


001202 




18$: 


TYPE 


, SQUtS 


//TYPE ?<CR><Lf'» 


2343 


011000 


000720 








BR 


20S 


//SIMULATE CONTROL-U 


2344 










,OSABL 


LSB 






2345 


















2346 


















2347 










/j**ftft**ftft*&*itraa*ftfta*a»ft*«*ft«ftftftft&ft**aftftft*ft* 


2348 










/*THIS 


ROUTINE 


WILL INPUT A SINGLE CHARACTER FROM THE TTY 


2349 










/*CALLJ 








2350 










Z* 


RDCHR 




//INPUT A SINGLE CHARACTER FROM THE 


2351 










/* 


RETURN 


HERE 


//CHARACTER IS ON THE STACK 


2352 










/* 






//WITH PARITY BIT STRIPPED OFf 


2353 










/ 








2354 


















2355 


011002 


011646 






SRDCHR5 


MOV 


CSPJ , « CSPJ 


/ /PUSH DOWN THE PC 


2356 


011004 


016666 


000004 


000002 




MOV 


4 CS p J , 2 CSPJ 


/ /SAVE THE PS 


2357 


011012 


105777 


170126 




is: 


TSTB 


PSTKS 


//WAIT FOR 


2358 


011016 


100375 








BPL 


1$ 


//A CHARACTER 


2359 


011020 


117766 


170122 


000004 




MOVB 


•STKB,4C3PJ 


/ /READ THE TTY 


2360 


011026 


042766 


I7r600 


000004 




BIC 


»*C<1 f f>,4CSPJ 


/ /GET RID OF JUNK IF ANY 


2361 


011034 


026627 


000004 


000023 




CMP 


4 CSPJ , #23 


//IS IT A CONTROL'S? 


2362 


011042 


001013 








BNE 


3$ 


/ / BRANCH IF NO 


2363 


011044 


105777 


1759074 




2§: 


TSTB 


#ST<S 


//WAIT FOR A CHARACTER 


2364 


011050 


100375 








BPL 


23 


//LOOP UNTIL ITS THERE 


2365 


011052 


U7746 


17B070 






MOVB 


*stkb,-cspj 


//GET CHARACTER 


2366 


011056 


042716 


177600 






BIC 


#"ci n , cspj 


//MAKE IT 7-BIT ASCII 


2367 


011062 


022627 


000021 






CMP 


CSPJ *21 


//IS IT A CONTROL-0? 


2368 


011066 


001366 








BNE 


2$ 


//IF NOT DISCARD IT 


2369 


011070 


000750 








BR 


is 


//YES, RESUME 


2370 


0H072 


026627 


000004 


000140 


is: 


CMP 


4 CSP J ,»140 


//IS IT UPPER CASE? 


2371 


011100 


002407 








BLT 


4S 


//BRANCH IF YES 
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237a 


011102 


026627 


000004 


000175 




CMP 


«(SPJ ,#17b 


IIIS IT A SPECIAL CHAR? 


23T3 


011110 


003003 








BQT 


4S 


| | BRANCH IF YES 


2374 


011112 


042766 


000040 


000004 




BIC 


#40,4C5P) 


IIMAKt IT UPPER CASE 


2375 


011120 


000002 






ass 


RTI 




! IGU BACK TU USER 


2376 












2377 










1 *THI5 


iOUT IN£ 


WILL INPUT A STRING FROM THE TTY 


2378 










1 *C ALL ' 








2379 










i * 






1 1 INPUT A STRING FROM THE TTY 


2380 










1 * 


RETURN 


MERE 


| t AOORESS OF FIRST CHARACTER WILL BE ON THE 


2361 










* * 






1 | TERMINATQP WILL BE A BYTE OF ALL 0*5 


2382 


















2383 


01 1 122 


010346 






3RDL INS 


MOV 


H3»" 15PJ 


1 1 SAVE. N j 


2384 


01 1 124 


012703 


01 1230 




is ! 




#STT Y IN i R3 


1 | GET ADDRESS 


2365 


01 1 130 


022703 


01 1240 






f*MP 


w 9 1 1 T invSi |K J 


||OU"rfcN rULLf 


2388 


011134 


101405 








ri n« 


4S 


■ t ELD T 8» Vco 

f I BK 4 r Tea 


2387 


01H36 


104407 












f|uU Kt AO QN6 wnAKAt Ten f Hun T Ht TTY 


2388 


01 1 140 


1 12613 








M(1UR 






2369 


01 j 14g 


122713 


000177 




* 


CMP8 


$ 1 7 7 i C R 3 J 


life TT A Dl iRrii 1 Y 
1143 i 1 » KUDUUT 


2390 


01H46 


001003 








BNE 




I f Oft i r 1 r nfU 1 


2391 


0U150 


104401 


001202 




4§ • 


TYPE 


i SQUt3 


1 1 TYPE A * ? * 


2392 


011154 


000763 








BR 


1 5 


ltf*i Fiy Tut aiiiccu skin i n(lP 


2393 


011156 


111367 


000044 




3$ 1 


MOVB 


CR3) t 93 


J # & w ™ v inc. bn^iiAblK" 


2394 


011162 


104401 


011226 






TYPE 


i 9S 




2395 


011166 


122723 


000015 






CMPB 


Si 1 K . IDtlA 


I # LHtLft r QK WtTUKN 


2396 


011172 


001356 








r^BR 




r fbUWr 1 r NU 1 nC 1 Unnl 


2397 


011174 


105063 


177777 








®l I " J J 


J I LL& AK KtTUKN ITHfc 1 3 J 


2398 


011200 


104401 


001204 






TVPC 


f $L F 


iitype a line feed 


2399 


011204 


012603 








MflU 




1 1 K CO I UKt H J 


2400 


01 1206 


011646 








Mnu 


£5P J » - ISP J 


II ADJUST THE STACK AND PUT ADDRESS OF THE 


240} 


011210 


016666 


000004 


000002 




MOV 


4 (SP J f 4 CSP J 


II FIRST ASCII CHAK ACTER ON IT 


2402 


011216 


012766 


01 1230 


000004 




MOV 


#$TTYIN, 416PJ 




2403 


011224 


000002 








RTI 




1 1 RETURN 


2404 


01 1226 


000 






9SS 


»BYTE 





| | STORAGE FOR ASCII CHAR „ TO TYPE 


240S 


01 1227 


000 








S 9YTE 




| | TERMINATOR 


2406 


01 1230 


000010 






iTTYINS 


»BLKB 


8. 


| IRtSERVE 8 BYTES FOR TTY INPUT 


2407 


011240 


052536 


005015 


000 


SCNTLUI 


.ASCIZ 


/"U/<l*>«ld> 


IICQNTROL "U" 


2408 


011245 


136 


006507 


000012 


SCNTLGI 


•ASCIZ 


/~G/«lis»«i2» 


| ICONTROL "6" 


2409 


011232 


005015 


053523 


020122 


SMSWRI 


•ASCIZ 


<15»<1*>/5WR » 


/ 


2410 


011260 


020075 


000 












2411 


011263 


040 


047040 


053505 


SMNEW 1 


, ASCIZ 


/ NtW 8 / 




2412 


011270 


036440 


000040 
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2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2443 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
245? 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2463 



011274 
011300 
011306 
011312 
011316 
011320 
011326 
011334 
011342 
011344 
011346 
011350 
011354 
011356 
011362 
011366 
011372 
011376 
0H400 
011402 
011404 
011406 
011410 
011412 
011414 
011416 
011422 
011424 
011430 
011632 
011434 



017646 
116667 
112667 
062716 
000406 
112767 
112767 
112767 
010346 
010446 
010546 
116704 
005404 
062704 
110467 
116704 
016605 
005003 
006105 



006105 
006105 
006105 
010503 
006103 
105367 
100016 
042703 
001002 
005704 
001403 



000001 0002U 

000207 

000002 



000145 

000006 

000132 
000125 
000012 



000076 
177770 



.SBTTL BINARY TO OCTAL (ASCII ) AND TYPE 

I*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-OlGIT 
MOCTAL (ASCII! NUMBER AND TYPE IT. 

|*»TYPOS— -ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
MCALLJ 

NUM." ISP) 1 1 NUMBER TO BE TYPED 

I I CALL FOR TYPEOUT 
N UNsl TO 6 FOR NUMBER OP DIGITS TO TYPE 

M ||Mal OR 

||l*TYPE LEADING ZEROS 
l>0*SUPPRESS LEADING ZEROS 



MOV 
TYPOS 
bBYTE 
aBYTE 



I * 
I * 
I* 
l« 
I * 
I * 
I * 

|*JTYP0N — -ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

MSTYPOS OR STYPOC 

I*CALLI 

I* MOV NUM,-(SP) | | NUMBER TO BE TYPED 

I* TYPON 1 1 C ALL FOR TYPEOUT 

I* 

|*»TYPQC— ENTER HERE POR TYPEOUT OF A 16 BIT NUMBER 
l*CALLi 
I * 

I* 



000171 STYPOCJ 
000165 

00015a STYPONi 



1SI 
2SI 



MOV 


NUM, -CSP) 


I | NUMBER TO BE TYPED 


TYPOC 




1 1 CALL FOR TYPEOUT 


MOV 


HSPJ i-CSP) 


I IPICKUP THE MODE 


MOVB 


USPJ ,»0FILL 


HLOAD ZERO FILL SWITCH 


MOVB 


(SP ) ♦ | SOMODE+ I 


1 1 NUMBER OF OIGITS TO TYPE 


ADD 


#2, CSP) 


II ADJUST RETURN AOORESS 


BR 


stypun 




MOVB 


#l,*4JFiLL 


! I3ET THE ZERO FILL SWITCH 


MOVB 


*6,SUMUDE+1 


II5ET FOR SIX (6) DIGITS 


MOVB 


*5,*0CNT 


II5ET THE ITERATION COUNT 


MOV 


R3, »15P) 


USAVE R3 


MOV 


R4,«ISP3 


I ISAVE R4 


MOV 


R5,-ISP) 


IISAVE R5 


MOVB 


SOMODE*l,Ra 


I f GET THE NUMBER OF DIGITS 


NEG 


R4 




AOD 


«b f R« 


1 1 SUBTRACT IT FOR MAX, ALL 


MOVB 


R4,SUMUDE 


IISAVE IT FOR USE 


MOVB 


S0FILL#R4 


II GET THE ZERO FILL SWITCH 


MOV 


12CSPJ,R5 


I IPICKUP THE INPUT NUMBER 


CLR 


R3 


! ICLEAR THE OUTPUT WORD 


ROL 


R5 


1 1 ROTATE MSB INTO "C" 


BR 


3S 


!!G0 DO MSB 


ROL 


R5 


I 1 FORM THIS DIGIT 


ROL 


R5 




ROL 


R5 




MOV 


R5,K3 




ROL 


R3 


1 1 GET LSB OF THIS DIGIT 


DECB 


SQMODE 


IITYPE THIS OIGIT? 


BPL 


7$ 


||BR IF NO 


BIC 


#1777743, R3 


1 1 GET RID OF JUNK 


BNE 


4S 


1 1 TEST FOR 


TST 


R4 


IISUPPRESS THIS 0? 


BEQ 


5$ 


IIBR IF YES 
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2469 


011436 


005204 




4S 5 


INC 


R4 


/ ; DON f T SUPPRESS ANYMORE 0*5 


2470 


01 1440 


052703 


000060 




BIS 


* *0 # K3 


; /MAKE THIS DIGIT ASCII 


247f 


01 1444 


052703 


000040 


5$i 


BIS 


* * ,HS 


; ; MAKE ASCII IF NUT ALREADY 


2472 


01 1450 


1 10367 


000040 




MOVB 


R3, 8S 


//SAVE FOR TYPING 


2473 


011 454 


1 04401 


011514 




TYPE 


, g$ 


/ / GO TYPE THIS DIGIT 


2474 


011 460 


1 05367 


000032 


7$ i 


DECB 


SOCN T 


; / COUNT BY 1 


2475 


01 1464 


003347 






BGT 


2$ 


//BR If" MORE TO DO 


2476 


01 1466 


002402 






BLT 


6$ 


J/BR IF DONE 


2477 


01 1470 


005204 






INC 


R4 


/ / INSURE LAST DIGIT ISN'T A BLANK 


2478 


01 1472 


000744 






BR 


23 


J/GQ DO THE LAST DIGIT 


24 79 


01 1 474 


012605 




6S> 


MOV 


CSP) ♦ , K5 


//RESTORE R5 


2480 


011476 


012604 






MOV 


(SP) * , K4 


HRESTORE R4 


2481 


01 1 500 


012603 






MOV 


CSP) + ,H3 


1 ; RESTORE R3 


2482 


01 1502 


016666 


000002 000 


004 


MOV 


2 CSP ) t 4 (SP) 


; I SET THE STACK FOR RETURNING 


2483 


011510 


012616 






MOV 


CSP J * » CSP J 




2484 


011512 


000002 






RTI 




1 / RETURN 


2485 


011514 


000 




ess 


.BYTE 





/ | STORAGE FOR ASCII DIGIT 


2486 


011515 


000 






bBYTE 





/ / TERMINATOR FOR TYPE ROUTINE 


2487 


011516 


000 




sqcnT : 


9 BYTE 





M OCT AL DIGIT COUNTER 


248S 


011517 


000 




S0FILL 5 


.BYTE 





; /ZERO FILL SWITCH 


2489 


011520 


000000 




somode: 


.WORD 





/ /NUMBER OF DIGITS TO TYPE 
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2490 






2491 






2492 






2493 






2494 






2495 






2496 






2497 






2498 


011522 


010046 


2499 


0H524 


016600 


2500 


011530 


005740 


2501 


011532 


111000 


2502 


011534 


006300 


2503 


011536 


016000 


2504 


011542 


000200 


2505 






2506 






2507 






2508 






2509 


011544 


01 1646 


2510 


011546 


016666 


2511 


011554 


000002 


2512 






2513 






2514 






2515 






2516 






2517 






2518 






2519 






2520 


011556 


01 1544 


2521 


011560 


010300 


2522 


011562 


011320 


2523 


011564 


011274 


2524 


011566 


011334 


2525 






2526 


011570 


010570 


2527 






2528 


011572 


010520 


2529 


011574 


011002 


2530 


011576 


01 1 122 


2531 


011600 


007462 


2532 


011602 


006626 


2533 


01 1604 


006664 



000004 000002 



,SBTTL TRAP DtCQDER 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 

/ * AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

;*OF THE DESIRED ROUTINE, THfcN USING THE ADDRESS OBTAINED IT WILL 



THAT 


ROUTINE « 




MOV 


W0,»CSP) 


//SAVE R0 


MOV 


2 (SP J ,H0 


//GET TRAP ADDRESS 


TST 


-(R0) 


//BACKUP BY 2 


MOVB 


CR0J »RU 


//GET RIGHT BYTE OF TRAP 


ASL 


R0 


//POSITION FOR INDEXING 


MOV 


4TRPADCR0) »R0 


//INDEX TO TABLE 


RTS 


R0 


//GO TO ROUTINE 



/ /THIS IS USE TO HANULt TMfe "GETPRI " MACRO 



MOV 
MOV 
RTI 



CSP) , -ISP) 
4 CSP J i d CSP) 



//MOVE THE PC DOWN 
//MOVE THE PSW DOWN 
//RESTORE THE PSW 



.SBTTL TRAP TABLE 



/ *THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
/ *B Y THE "TRAP" INSTRUCTION, 



STRPAD5 ,WQRD 
STYPE 
STYPOC 
STYPOS 

STYPON 



STRAPS 

/ / C ALL*T YPE 

/ /CALL«TYPOC 

nCALL»TYPOS 

I /CALL'TYPON 



SGTSWR I / C *LL a GTSWR 

SCKSWR MCALL'CKSWR 
SRDCHR / /CALL*RDCHR 
SRDLIN / /C*LL 8 ROLIN 
SRDOCT / /CALL«ROOCT 
SSAVREG / /CALL*SAVREG 
SRESREG / /CALL*RESREG 



TRAP+1 C104401) TTY TYPEOUT ROUTINE 

TRAP+2C1044B2) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TRAP+3C104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP+4C104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

TRAP+5C104405) GET SOFT-SWR SETTING 



TRAP + 6 C104406) 
TRAP*7 (104407) 
TRAP+10C104410) 
TRAP + li C1044H) 
TRAP+12C104412) 
TRAP+13C104413) 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
SAVE R0-R5 ROUTINE 
RESTORE R0-R5 ROUTINE 
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2534 










bSBTTL 


POWER 


DOWN AND UP ROUTINES 


2535 


















2536 










;;****************************** 


it******************************* 


2537 










/ POWER 


DOWN ROUTINE 




2538 


011606 


012737 


01 1752 


000024 


5PWRDN • 






I j SET F OR FAST UP 


2539 


011614 


012737 


000340 


000026 






ft 3 4 f #ftPWRVEC + 2 


f > pr io : 7 


2540 


01 1622 


010046 








MQV 


R0 m CSP ) 


/ J PUSH R0 ON STACK 


2541 


01 1624 


010146 








MOV 


R 1 » °* I SP ) 


I/PUSH Rl ON STACK 


2542 


01 1626 


010246 








MOV 




//PUSH R2 ON STACK 


2543 


011630 


010346 








MOV 


R3 $ *• ISP J 


//PUSH R3 ON STACK 


2544 


011632 


010446 








MOV 


R4,- ISP3 


//PUSH R4 ON STACK 


2545 


011634 


010546 








MOV 


R5,-ISH) 


I I PUSH R5 ON STACK 


2546 


01 1636 


017746 


16727b 






MOV 


»SWR,*>ISPJ 


; ; PUSH #SWR ON STACK 


254? 


011642 


010667 


000110 






MOV 


SP,SSAVRb 


M SAVE SP 


2548 


01 1646 


012737 


011660 


000024 




MOV 


#SPWWUP, *#PWRVEC 


?, 'SET UP VECTOR 


2549 


01 1654 


000000 








HALT 






2550 


01 1656 


000776 








BR 


.-2 


/ J HANG UP 


2551 


















2552 












2553 










/ POWER 


UP ROUTINE 




2554 


011660 


012737 


011752 


000024 


SPWRUPS 


MOV 


•SILLUP, **PWWVEC 


; / SET FOR FAST DOWN 


2555 


011666 


016706 


000064 






MOV 


SSAVRb,SP 


/ / GET SP 


2556 


011672 


005067 


000060 






CLR 


SSAVKb 


//WAIT LOOP FOR THE TTY 


2557 


011676 


005267 


000054 




1SI 


INC 


SSAVWb 


1 /WAIT FOR THE INC 


2558 


011702 


001375 








9NE 


IS 


/ / OF WORD 


2559 


011704 


012677 


167230 






MOV 


(SP) *,*?SWH 


//POP STACK INTO #SWR 


2560 


011710 


012605 








MOV 


CSP)*,K5 


//POP STACK INTO R5 


2561 


011712 


012604 








MOV 


CSPJ*,H4 


HPQP STACK INTO K4 


2562 


011714 


012603 








MOV 


CSP)*,W3 


//POP STACK INTO R3 


2563 


011716 


012602 








MOV 


CSP3*,K2 


; r'PQP STACK INTO K2 


2564 


01 1720 


012601 








MOV 


CSP) *,K1 


/ / POP STACK INTO Rl 


2565 


01 1722 


012600 








MOV 


(SP)*,K0 


//POP STACK INTO R0 


2566 


011724 


012737 


011606 


000024 




MQV 


SSPWKQN, «>#PWKVEC 


|; SET UP THE POWER DOWN VECTOR 


2567 


01 1732 


012737 


000340 


000026 




MQV 


#340, P#PWHVEC*2 


//prio/7 


2568 


0H740 


104401 








TYPE 




/ REPORT THE POWER FAILURE 


2569 


01 1742 


01 1760 






SPWRMGI 


.WORD 


SPOWfcR 


; IPOWER FAIL MESSAGE POINTER 


2570 


01 1744 


0127 16 








MOV 


CPCJ*, ISP) 


; /RESTART AT SEOP 


257i 


01 1746 


004412 






SPWRADI 


.WORD 


SEOP 


/ / RESTART ADDRESS 


2572 


01 1750 


000002 








RTI 






2573 


011752 


000000 






sillup: 


HALT 




; /THE POWER UP SEQUENCE WAS STARTED 


2574 


011754 


000776 








BR 


»«2 


/ / BEFORE THE POWER DOWN WAS COMPLETE 


2575 


011756 


000000 






SSAVR6! 







/ /PUT THE SP HERE 


2576 


011760 


005015 


047520 


042527 


SPUWERJ 


»ASCIZ 


<15»«U>"PUWER" 




2577 


011766 


000122 














2578 












.EVEN 
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2579 












2580 




















2581 










/DATA 


POINTERS 








2582 




















2583 


011770 


001116 


001162 


001166 


DTI I 


.WORD 


SERRPC, 


SREG0 , SREG2 1 


, BYTNUM,JGDDAT, SBDDAT, SGD ADR, SBD ADR 


2584 


011776 


001230 


001124 


001126 












2585 


012004 


001120 


001122 


000000 












2586 




















2587 


012012 


001116 


001162 


001166 


DT<i: 


»WORD 


5ERRPC i 


SREG0, SREGd, 


,STMP0,STMP2,0 


2588 


012020 


001172 


001176 


000000 












2589 




















2590 


012026 


001116 


00U&2 


001 166 


DT101 J 


s WORD 


SERRPC* 


SHEG0 * SREG2 , 


,$TMP0,0 


2591 


012034 


001172 


000000 














2592 




















2593 


0120^0 


001116 


001240 


000000 


DT201! 


. WORD 


SERRPC, 


TACSLf 




2594 




















2595 


012046 


001116 


000000 




DT202S 


.WORD 


SERRPC, 







2596 




















259? 










/DATA 


FORMATS 








2598 




000000 






ON»0 


/OCTAL 


NUMBER 






2599 




000001 






DN«i 


/DECIMAL NUMBbK 






2600 




















2601 


012052 


000 






DPI I 


.BYTE 


ON 


/ SERRPC 




2602 


012053 


001 








B BYTE 


ON 


/ SREG0 




2603 


012054 


001 








„ byte 


DN 


/SNEG2 




2604 


012055 


001 








.BYTE 


ON 


IBYTNUH 




2605 


012056 


000 








.BYTE 


ON 


/ SGDUAT 




2606 


012057 


000 








.BYTE 


ON 


/SBDDAT 




2607 


P12060 


000 








.BYTE 


ON 


/SGDADR 




2608 


012061 


000 








.BYTE 


ON 


ISBDADR 




2609 




















2610 


012062 


000 






DF2 I 


8 8YTE 


ON 


/StRRPC 




26U 


012063 


001 








9 BYTE 


DN 


/ SKEG0 




2612 


012064 


001 








.BYTE 


DN 


/SKEG2 




2613 


012065 


001 








.BYTE 


DN 


/ STMP0 




2614 


012066 


001 








.BYTE 


DN 


/STMP1 




2615 
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2728 


013127 


200 


054502 


042524 


MSGS! 


.ASCIZ 


«CRLF»"8YTfcS WRITTEN 8 " 


2729 


013134 


020123 


051127 


052111 








2730 


013102 


042524 


036516 


000 








2731 


013147 


200 


040524 


042520 


MSG6! 


.ASCIZ 


<CRLF>"TAPt PASSES®" 


2732 


013154 


050040 


051501 


042523 








2733 


013182 


036523 


000 










2734 


013165 


200 


044506 


042514 


MS67S 


.ASCIZ 


<CRLr>"FlLES/PASSx» 


2735 


013172 


027523 


040520 


051523 








273$ 


013200 


000075 












2737 


013202 


041200 


047514 


045503 


MSGS: 


« ASCIZ 


<CRLF>«BLUCKS/FILE«" 


2738 


013210 


027523 


044506 


042514 








2739 


013216 


000075 












2780 


013220 


040440 


042116 


000 


MSG9: 


.ASCIZ 


" AND " 


2741 


013225 


040 


044527 


046114 


msg l : 




" WILL BE TESTED"<CRLF> 


2742 


013232 


041040 


020105 


042524 








27«3 


013240 


052123 


042105 


000200 








2744 


013246 


025052 


020052 


047506 


msgi l : 


•ASCIZ 


M *»* f-URMAT ft**" 


2745 


013254 


046522 


052101 


025040 








2746 


013262 


025052 


000 










2747 


013265 


052 


025052 


051040 


MSG12: 


„ASCIZ 


"*** HEAD ***" 


2748 


013272 


040505 


020104 


020040 








2749 


013300 


025052 


000052 










2750 


013304 


025052 


020052 


051127 


M5G13I 


.ASCIZ 


WRITE ***" 


275J 


013312 


052111 


020105 


025040 








2752 


013320 


025052 


000 










2753 


013323 


040 


000040 




MSGI 4 : 


a ASCIZ 




2754 


013326 


042040 


044522 


042526 


MSGISi 


• ASCIZ 


" DRIVE " 


2755 


013334 


000040 












2756 


013336 


042200 


044522 


042526 


MSGDRV : 


*ASCIZ 


<CRLf-> B DRlVElS)7 " 


2757 


013344 


051450 


037451 


000040 








2758 


01335g 


052200 


041501 


037523 


MSG ASK i 


.ASCIZ 


<CRLF>"TAC57 M 


2759 


013360 


000 












2760 


013361 


200 


042526 


052103 


msgvec: 


, ASCIZ 


<CRLF>»VECT0R7" 


2761 


013366 


051117 


00B077 










2762 


013372 


050200 


044522 


051117 


msgpri : 


.ASCIZ 


«CRLI->"PRIQRITY? H 


2763 


013400 


052111 


037531 


000 








2764 


013405 


200 


040524 


051503 


mtacs: 


8 asciz 


<CRLF>"TAC3*>" 


2765 


013412 


000075 












2766 


013414 


052040 


042101 


036502 


MTADB1 


.ASCIZ 


/ TAyys/ 


2767 


013422 


000 












2768 


013423 


040 


053040 


041505 


mtavec: 


9 ASC1Z 


" VtCT0R«" 


2769 


013430 


047524 


036522 


000 








2770 


013435 


040 


050040 


044522 


MTAPRI : 


„ASCIZ 


" PKIOHITYs" 


2771 


013442 


051117 


052111 


036531 








2772 


013450 


000 












2773 


013451 


200 


045517 


000077 


MSGDKJ 


.ASCIZ 


<CRLF>"0K7 H 


2774 


013456 


042531 


100123 


000 


MYESS 


.ASCIZ 


B YES"<l.RLF> 


2775 




013464 






.EVEN 






2776 
















277? 










.5BTTL 




READ AND WHITE BUFFER 


2778 
















2779 


013464 


002004 






BUFFER J 


„BLKB 


102b. 


2780 




015470 






LAST ADDRESS® 




2781 
















2782 




000001 








eEND 
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ASK ADR 


007730 


618 


2117* 
















ASKDRV 


007620 


615 


2084# 


2107 














SACK 


007154 


1900 


1903# 
















BADFUN 


005466 


1448 


1454* 
















BC, ERR 


006050 


1517 


1559# 
















BEGINX 


002326 


612# 


648 


650 


711 


713 










BEGINl 


001752 


226 


537# 
















BEGINS 


002004 


227 


544« 
















BEGINS 


002012 


228 


543 


546* 














BGNCMN 


002016 


540 


542 


545 


547* 












BIT0 a 


000001 


170* 


















BIT00 a 


000001 


160# 


170 


213 


737 


775 


2195 2197 








8IT01 a 


000002 


159# 


169 


212 


775 


2197 










BIT02 a 


000004 


158* 


168 


211 














8IT03 a 


000010 


157# 


167 


210 














BJT04 n 


000020 


156* 


166 


209 














BIT05 s 


000040 


155# 


165 


208 














BIT06 a 


000100 


1540 


164 


207 














BIT07 a 


000200 


153* 


163 


206 


775 


2195 


2197 








BIT08 » 


000400 


152* 


162 


205 














BJT09 a 


001000 


151 # 


161 


204 














BIT! > 


000002 


169# 


















BIT10 ■ 


002000 


150# 


203 


1354 














SITU b 


004000 


149* 


202 
















BIT12 i 


010000 


148$ 


201 
















BIT13 « 


020000 


147# 


200 


1361 














BIT14 8 


040000 


146* 


199 


1316 














BIT15 ■ 


100000 


145# 


198 
















8IT2 s 


000004 


168# 


















BIT3 » 


000010 


167# 


















BIT4 ■ 


000020 


166# 


















BIT5 a 


000040 


165# 


















8IT6 ■ 


000100 


164# 


















8IT7 » 


000200 


163# 


















BITS ■ 


000400 


162# 


















BIT9 a 


001000 


161# 


















BLKSZ 


001312 


322$ 


1583 


1585 


1648 


165ia 


1/04 1729 








BLOCK 


001306 


314* 


846 


945 


946 


953 


996 1062 1072 


1073 


1080 1124 


1170 






1178 


1484 


1541 


1542 


1545* 


1580 1619 1645 


1681 


1666 1701 


1732 


BPTVEC* 


000014 


177# 


















BSBG 


006742 


890 


932 


1020 


1842* 












BSFG 


006736 


1840$ 


















BUFFER 


013464 


422 


1617 


1670 


1687 


IfeSes 


1705 2779* 








BYTNUM 


001230 


2898 


1730® 


2583 














C a 


000016 


790# 


791 


1S10# 














CASINT 


007056 


652 


1876* 
















CASPAR 


007162 


1856 


1911* 
















CBCNT 


007164 


1543 


1880 


1912* 














CHANOK 


007022 


1860* 


















CHKADR 


002350 


614 


617 


636* 














CHKQRV 


002442 


677® 


















CHKRDY 


006766 


185l# 


1852 
















CKE0T8 


004364 


871 


864 


1065 


1149 


1163 


120k}* 








CKSWR ■ 


104406 


1315 


1350 


1369 


2528* 












CLEAR 


002764 


730 


733 


F51# 


753 












CL.ERR 


005712 


1514 


1526* 
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cnthrd 


006606 


923 


1052 


1/670 














CNTSFT 


006550 


921 


1050 


1 7500 














CR s 


000015 


85# 


2264 


2274 














CRCERRa 


040000 


1990 


1501 
















CRLF a 


000300 


86# 


600 


2235 


2274 


2715) 


2719 2722 2725 


2728 2731 2734 


2737 


2741 






2756 


2758 


2760 


2762 


2764 


2773 2774 








CSRERR 


005536 


858 


869 


882 


894 


905 


936 1008 1024 


1035 1089 1136 


1147 


1161 






14830 


















DATCMP 


006356 


918 


1047 


i 7010 














ODISP * 


177570 


928 


259 


571 














OFl 


012052 


454 


26010 
















QFg 


012062 


461 


2610# 
















OHJ 


012535 


452 


2680# 
















OH10J 


012750 


470 


476 


«82 


468 


49a 


500 506 27050 








DH2 


012633 


458 


2691# 


















01301 1 


518 


271 1# 
















DH202 


013026 


523 


2714# 
















OISPLA 


001142 


259# 


571* 


579* 


1333* 


1353* 










DISPRE 


000174 


223* 


579 
















DN a 


000001 


2599» 


2602 


2603 


2604 


261 1 


2612 2613 2614 








DOFUN 


007044 


1867# 


















DRVKfc Y 


001252 


3013 


302 


538* 


677 


69|0 


741 2065* 2090 


2104 2108 






ORVPNT 


001256 


J02# 


691* 


734 


742* 












DSWR » 


177570 


91* 


258 


570 














DTJi 


011770 


453 


25830 
















DTJ01 


012026 


471 


477 


483 


489 


495 


501 507 25900 








DT2 


012012 


460 


2587# 
















DTggi 


012040 


519 


2593* 
















DT202 


012046 


524 


2595* 
















EMTVEC* 


000030 


180* 


558a 


559* 














EMI 


012244 


451 


2643« 
















EM101 


012272 


469 


2647# 
















EM J0g 


012314 


475 


2650* 
















EMJ03 


012340 


481 


2654* 
















EM104 


012363 


487 


2658# 
















EM105 


012402 


493 


2661# 
















EM15?b 


012417 


499 


26640 
















EM107 


012441 


505 


2668# 
















EM2 


012257 


457 


26450 
















EM201 


012«63 


517 


26720 
















EM202 


012512 


522 


26760 
















EOTS 


001212 


264ft 


1064a 


1201 


1261 


1546* 










EREXTf 


005526 


1416 


1473# 
















EREXT2 


005530 


1451 


1466 


14740 














ERROR a 


100000 


198* 


















ERROR0 


005320 


1405 


1 a 1 0^ 
















ERRORi 


00537fc» 


1406 


14300 
















ERROR? 


005506 


1407 


1464« 
















ERRVfcC^ 


000004 


173# 


568 


569* 


580* 


63b* 


642* 1321 1322* 


1324* 1327» 






EXAM 


010174 


678 


682 


687 


21620 












EXIT 


007720 


2103 


21080 
















FGAP a 


004000 


202# 


1497 
















FG.ERR 


006040 


1515 


1553# 
















FILE 


001304 


312* 


8<i9 


950 


999 


1060 


107 7 1127 1175 


1483 1531 1532 


1538 


1618 






1683 


1685 


1707 


1731 












FILE5Z 


001310 


316# 


946 


1073 


1171 


1273 


1*33 
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FILL 


006136 


1587 


16110 
















FORMAT 


003132 


795 


840# 
















FORPAS 


001274 


307 


3080 


747 


784 












FUNCTIa 


000016 


214# 


1486 
















FUNC0 a 


000002 


212# 


214 
















FUNCl a 


000004 


21 1ft 


214 
















FuNca 8 


000010 


2100 


214 
















PUNLQC 


007170 


1485 


1853* 


i860* 


19140 












FUNTAB 


006724 


1835# 


1849 
















GNS 8 


****** u 


222 


599 


2521 


2522 


2523 


2524 2526 2528 


2529 2530 2531 


2532 


2533 


GO » 


000001 


213$ 


















GTSWR * 


104405 


594 


1287 


2526# 














HARDNM 


001210 


e&s» 


1246 


1 767* 


1768 












HT ■ 


000011 


83$ 


2233 


2274 














ILBS s 


000020 


209# 


















INT.fcN" 


000100 


2070 


















IOCOM 


006760 


1835 


1837 


1839 


1841 


1843 


1645 1847 18490 








IOTVEC" 


000020 


1780 


556* 


557* 














ITEM50 


001622 


445# 


1392 
















ITEMSi 


001642 


467# 


1393 
















ITEM82 


001732 


515# 


1394 
















LASTAD* 


015470 


27800 


















LASTBK 


001234 


291# 


744* 


1062 


1533* 


1534* 


1542* 








LASTf-L 


001236 


293# 


732 


743* 


1060 


1266 


1532* 1538* 








LEADfcRa 


020000 


2000 


1495 


2200 














LF a 


000012 


84# 


2268 


2274 














LOOP 


007644 


20911* 


2105 
















LOOPER 


002774 


750 


7748 


1205 














MAXEOT 


001264 


3050 


1201 
















MAXERR 


001262 


304* 


746 


939 


1768 












MAXRDS 


001260 


3038 


745 


938 


1059 


1753 


1 754 








MSGA5K 


013352 


2118 


2758s* 
















MSGDRV 


013336 


2084 


2756# 
















MSGOK 


013451 


2160 


2773«f 
















MSGPRI 


013372 


2136 


27&2«! 
















MSGVtC 


013361 


2127 


2760# 
















MSGl 


013031 


1236 


2715# 
















MSG10 


013225 


706 


27410 
















MSGU 


013246 


641 


2744# 
















MSGl 2 


013265 


991 


27470 
















MSG 1 3 


013304 


1 119 


27500 
















MSGI« 


013323 


1414 


1436 


1«69 


2753# 












M5G15 


013326 


2067 


27540 
















MSGS 


013056 


1240 


2?19«t 
















MSG3 


013074 


1245 


2722* 
















MSGa 


013112 


1250 


2725# 
















MSGS 


013127 


1255 


27280 
















MSG6 


013147 


1260 


27310 
















MSG? 


013165 


1265 


27340 
















MSG8 


013202 


1272 


27370 
















MSG9 


013220 


703 


27400 
















MJ ACS 


013405 


2148 


27640 
















MTADtt 


013414 


2151 


2766# 
















MTAPRI 


013435 


2157 


27708 
















MTAVtC 


013423 


2154 


2768ft 
















MXBSBG 


012145 


1458 


2629» 
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MXB8FG 


012121 


1457 


2625* 




















MXREAD 


012114 


1456 


2624$ 




















MXRWNO 


012235 


1461 


2641# 




















MXSFBG 


012213 


1460 


2637# 




















MXSFFG 


012170 


1459 


2633* 




















MXWFfi 


012067 


1454 


2620$ 




















MXWRIT 


012106 


1455 


2623* 




















MYES 


013456 


2169 


2774* 




















NEXT 


007700 


2094 


2098 


2102* 


















NOTA 


007656 


2092 


2095# 




















NOTB 


007670 


2096 


2099* 




















NOTLGL 


007712 


2089 


2100 


2106# 


2109 
















OFFLIN* 


001000 


204* 


1491 


2191 


















OL.EKR 


005702 


1512 


1520# 




















ON - 


000000 


2598* 


2601 


2605 


2606 




260a 


2610 










PARMBK 


001612 


#19# 


421 


697* 


699* 


701* 


704* 


738* 


853 


855 


864 866 877 


879 






889 


891 


900 


902 


931 


933 


1003 


1005 


1019 


1021 1030 1032 


1084 






1086 


1131 


1133 


1142 


1144 


1156 


1158 


1236 


1488 


1585* 1650* 1735 


2068 


PASCNT 


001266 


306s* 


7#9* 


777 


?79* 


78/* 














PATS 


001352 


343# 


1586 


1714 


















PAT0 


001412 


343 


365* 




















PATl 


001422 


344 


368* 




















PATJ0 


001532 


353 


395* 




















PATH 


001542 


354 


398# 




















PAT 1 2 


001552 


355 


401# 




















PATJ3 


001562 


356 


404$ 




















PATifl 


001572 


357 


407* 




















PAT15 


001602 


358 


410# 




















PATg 


001432 


345 


37 1 # 




















PAT3 


001442 


346 


374# 




















PATa 


001452 


347 


377* 




















PAT5 


001462 


348 


380# 




















PATfe 


001472 


349 


383* 




















PAT? 


001502 


350 


386# 




















PAT8 


001512 


351 


389# 




















PAT9 


001522 


352 


392# 




















PIRQ « 


177772 


90$ 






















PIRQVE« 


000200 


184# 






















PR0 = 


000000 


107* 






















PRJ a 


000040 


108# 






















PR2 a 


000100 


109# 






















PR3 a 


000140 


110* 






















PR4 ■ 


000200 


lil# 






















PR5 a 


000240 


112* 






















PR6 » 


000300 


U3# 






















PS? a 


000340 


114* 






















PS a 


177776 


87# 


88 


547* 


















PSCNTl 


001270 


307* 


7a?* 


7«8a 


777 


780* 


161* 


782 


784* 


785* 


788 




PSW a 


177776 


88$ 






















PWRVtC* 


000024 


179* 


562* 


563* 


2538* 


2539* 


2548* 


2554* 


2566* 


2567* 






RBYTTL 


001214 


285# 


1251 


1648® 


1649* 
















RDCHR a 


104407 


2161 


2387 


2529# 


















ROLIN s 


104410 


2036 


2086 


2530# 


















RDOCT a 


104411 


2119 


2128 


2137 


25318 
















RDTRYS 


001224 


asm 


745* 


938* 


1059* 


1751* 


1753* 












ROiPAS 


001276 


309# 
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USEH SYMBOLS 



RD2PAS 


001302 


311* 


782 




READ 


006732 


901 


1031 


1838* 


READON 


003562 


796 


798 


989# 


READR 


007140 


1895 


1898# 




READY a 


000040 


208# 


2187 




RESRtG» 


104413 


1957 


2533# 




RESVECs 


000010 


174* 






REWIND 


006756 


854 


1004 


1132 


RWDONE 


007144 


1897 


1899$ 




RWILBS 


007150 


1893 


1902U 




SAVREG^ 


104412 


1931 


2532* 




SETUPR 


006220 


899 


1013 


1645* 


SETUPW 


006072 


876 


1153 


1580* 


SFBG 


006752 


16U6* 






SFFG 


006746 


1085 


18440 




SOFTNM 


001206 


282* 


731 


732 


STACK a 


001100 


78# 


554 




START 


002630 


707 


728# 


1299 


STKL^T* 


177774 


B9# 






SWR 


001140 


258* 


552 


570* 






1366 


2195 


2197 


SWREG 


000176 


224# 


578 


592 


SW0 s» 


000001 


142* 






3W00 a 


000001 


132# 


142 




SW01 a 


000002 


131* 


141 




SW02 « 


000004 


130* 


140 




SW03 » 


000010 


129S8 


139 




SW04 s 


000020 


128® 


138 




SW05 ■ 


000040 


127# 


137 




SW06 89 


000100 


126* 


136 




SW0? a 


000200 


125# 


135 




SW08 ■ 


000400 


124# 


134 


1203 


SW09 s 


001000 


123* 


133 


1281 


SMI a 


000002 


Ul* 






SW10 « 


002000 


122# 


1336 




swn ■ 


004000 


121* 






SW12 » 


010000 


120* 






SM13 8 


020000 


119# 






swia a 


040000 


118* 






SW15 


100000 


117* 






SW2 ■ 


000004 


140* 






SW3 * 


000010 


139# 






SW4 a 


000020 


138# 






SW5 s 


000040 


137* 






SW6 « 


000100 


136* 






SWT « 


000200 


135* 






SW8 ■ 


000400 


134* 






SW9 » 


001000 


133# 






SYNCK 


006254 


911 


1040 


1&70» 


TACSL 


001240 


297* 


638 


1851 


TADBL 


001242 


298* 


1896* 


1898 


TAPRIO 


001250 


300* 


2147* 


2158 


TAVEC 


001244 


299# 


54J 


652* 


TBITVE* 


000014 


175(8 






TIMERRa 


002000 


203# 


1499 




TKVEC « 


000060 


182# 







572 
228a 
1285 



578* 
2321* 
2284 



592 
2546 
2297 



774 
2559* 



1867* 
2126* 



1879 
2l5d 



653* 2135* 
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USER SYMBOLS 



TMPSWRs 


160000 


1 Sib» 


1 377 








TM„ERR 


006044 


1516 


15569 








rPDRV 


007564 


700 


705 


842 


992 


1 1 20 


TPVEC ■ 


000064 


l&SX 










TRAP Vg a 


000034 


16U 


560* 


561* 






TREQ 


007122 


1082 


18928 








TR T VfcC 8 


000014 


176# 










TR.RfeQa 


000200 


2068 










TYPE * 


104401 


588 


698 


703 


706 


84 | 






1240 


1245 


1250 


1255 


1 2b0 






1401 


1403 


1414 


1 426 


1436 






2118 


2127 


2136 


2148 


2151 






229^ 


2312 


2323 


2342 


2391 


TYPE^R 


005210 


1363 


1 379# 








TYPOC a 


1 04402 


1 420 


1433 


1468 


2 1 50 


2153 


TYPON a 


1 04404 


2524# 










TYPOS 8 


1 04403 


2523# 










UNIT a 


000400 


205* 


2 1 86 








wbyttl 


001220 


286# 


1256 


1543a 


1544« 


1533* 


WFG 


006722 


865 


1143 


1834# 






WLpERR 


005706 


1513 


1523» 








WRITE 


006726 


878 


1 157 


1 836$ 






WRITfcO 


004 1 36 


797 


1 1 1 7» 


1118 






WRTLUC« 


010000 


201# 


1493 


2193 






WRTPAS 


001300 


il0# 










WRTRYS 


001226 


288$ 


746ft 


929* 


939ft 




XBSB& s 


000010 


192# 










XBSFG a 


000006 


191# 










XREAD s 


000004 


190$ 


1560 








XRWND a 


000016 


195# 










XSFSG a 


000014 


194$ 










XSFFG a 


000012 


193# 










XWFG » 


000000 


188# 


1526 








XWRITE* 


000002 


189s 


1536 








X.ERR 


006066 


1518 


1565$ 








3AUTUB 


001 134 


255$ 


596ft 


2292 


2413 




SBOAOR 


001 122 


250$ 


1 727* 


2583 






SB0D4T 


001126 


252s 


729 


1 723* 


1 726ft 


2583 


spell 


005204 


1356 


1 376$ 








SCHAKC 


010514 


2240* 


2250* 


2257 


2266ft 


227 


SCKSWR 


010520 


2284$ 


2528 








SCMTAG 


IT 1 W 4 4 v 10 


2389 


549 


550 


558 


564 


SCMl s 


000004 


270# 


271* 


272a 


273# 


274$ 


SCM? « 


000010 


270* 


27l# 


2728 


273a« 


274* 


SCM3 a 


000004 


268# 


270 








SCMa a 


000004 


£74$ 


275# 


276# 


277$ 


2'0# 


SCNTLG 


31 1245 


2295 


2408# 








SCNTLU 


01 12^0 


2312 


2407* 








SCRL F 


001203 


279* 
2407 


698 


843 


993 


1121 


SDB2D 


007172 


1252 


1257 


1423 


1441 


1931# 


SDECVL 


007352 


1933 


1979*! 








sooagn 


004736 


122« 


1231 


1291 


1297* 




SENQAO 


004726 


586 


651 




1293* 


1371 


SENDCT 


004442 


564 


1226# 








SENOMG 


004745 


1228 


13«1# 









843 


991 


993 


1119 


1121 


1228 


1229 


1238 


1265 


1272 


1277 


1356 


1364 


1379 


1397 


1399 


1444 


1449 


1469 


2016 


2067 


2072 


2064 


2106 


2154 


2157 


2160 


2167 


2169 


2238 


2295 


2296 


2394 


2398 


2473 


2521$ 


2568 








2156 


2159 


2298 


2522$ 











1584* 



565 



1364 1377 1379 1399 1403 2239 2274 2323 



TAI i DATA RELIABILITY 


MAINDEC- 


11-DZTAE 




MACYli 


27 (1000J 


17-MAR 
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CRUSS 


REFERENCE 


TABLfc — 


USER S 


SENULL 


004742 




1229 


1300# 










SEOP 


004412 




859 


870 


883 


895 


906 


914 








1090 


1137 


1148 


1162 


1202 


1204 


SEOPCT 


004434 




564* 


1223# 


1227 








SERFLR 


001103 




241# 


1308 


1332* 


1336 


1351* 


1376 


SERM A x 


031115 




247* 


1336 










SEHROR 


005060 




558 


1349# 










SERRPC 


001116 




248# 


1358* 


1359* 


1360 


1376 


2583 


SERRTB 


001622 




439* 












SERTTL 


001112 




245* 


1357* 


1376 








SFILLC 


001156 




266# 


2243 


2274 








SFILLS 


001155 




265$ 


2274 










SGDAQR 


001120 




249# 


1725* 


2583 








SGDDAT 


001124 




251* 


1722* 


1724* 


2583 






SGET42 


004456 




1230# 












SGTSWR 


010570 




22960 


2526 










SHD a 


000000 




12 












SHIOCT 


007562 




2053* 


20580 










SICNT 


001104 




242# 












SILLUP 


011752 




2538 


2554 


2573a 








SINTAG 


001135 




256* 


2324 


2413 








SITEMB 


001114 




246$ 


728 


729 


1360* 


137/ 


1383 


SLF 


001204 




230# 


1277 


1377 


2274 


2390 


2407 


SLPADR 


001106 




243# 


565* 


040* 


875* 


9943* 


1018* 


SLPEKR 


001110 




244* 












SMAIL a 


****** 


U 


582 


592 


1331 


1366 


222/ 




SMNEW 


011263 




2299 


24U# 










SMSWK 


011252 




2296 


2409* 










SNULL 


001154 




2640 


2245 


2274 








SOCNT 


011516 




2445* 


2474* 


2487* 








SOMOUE 


011520 




2440* 


2444* 


2449 


2452* 


2463* 


2489* 


30VER 


005044 




1317 


1328 


1333* 








SPASS 


001100 




239# 


1220* 


1221* 


1300 






SPOWtR 


011760 




2569 


2576* 










SPWRAO 


011746 




2571# 












SPWRDN 


011606 




562 


25380 


2566 








SPWRMG 


011742 




25698 












SPWRUP 


011660 




2548 


2554# 










SQUES 


001202 




278« 


1377 


2106 


2167 


2274 


2342 


SRDCHR 


011002 




2355«s 


2529 










SRDDEC® 


****** 


U 


2532 












SRDLIN 


011122 




2383# 


2530 










SRDOCT 


007462 




2031* 


2531 










SRDSZ « 


000010 




23?6# 












SREGAD 


001160 




268* 












SREG0 


001162 




270# 


1483* 


1685* 


1731* 


2583 


2587 


SREG1 


001164 




271* 












SREG2 


001166 




272# 


1484* 


1686* 


1732* 


2583 


2587 


SREG3 


001170 




273# 












SRESRE 


006664 




1807* 


2533 










SRTNAO 


004740 




1299# 












SR2A * 


****** 


u 


2534 












SSAVRE 


006626 




179l# 


2532 










SSAVN6 


011756 




2547* 


2555 


2556s 


2557* 


257b* 




SSB2D 


007366 




1242 


1247 


1262 


1269 


1274 


1991* 


SSCOPE 


004760 




556 


1314# 
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925 

1217a? 



937 
2571 



1029* U18* 1154* 1331* 



2590 
2590 
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SSETUP 3 


000 | 37 




537$ 


555 
1371 


7Q 
2c7 


e4i 5 


560 


562 


SSTUP a 


1 7777? 




^ 537# 












SSUPRS 


007422 






1248 


1 e53 




1 2&3 


1 


SSVL AQ 


005030 




1525 


1 330$ 










SSWR a 






2$ 








63 


64 








1232 


if a* 


1 500 


1309 


1310 


1511 








J 


* 


1346 


1 354 


136 1 


1 566 


SSWRMK s 


nasi a Dim 
lo la WW bio 




l^ii 












jTKB 


00 i 1 46 








a^af 




23*" 


2565 


STKS 


004 1*»4 






_ 

2277 




a*oia 


232b* 


255 7 


8THP0 


001 172 




37fl« 


774® 




*aa 

en* 


790 


791 


STMP1 


















STMP2 


001 4 '6 








2 








STMP3 


not 1 90)01 
10 B 1 Cwl0 




377a 












STN a 


0101010101 4 




_ „ 












STNPWR 


01 CI "7 7 CI 3 

(dtp f jwe 




1938 


1939 


1959# 








STPB 


001152 




263# 


2263ft 


2274 








STPFLG 


00 1157 






222 1 










STPS 


00 1 1 50 




262# 


2261 


2274 








STRAP 


01 1522 




560 


2498# 










STRAP2 


011 544 




2509# 


2520 










STRP s 


a oj sic) i a 




25 1 3# 
2534$ 


2522# 


2523$ 


2524$ 






3TRPAD 


01 1556 




2503 


2520$ 










STSTNH 


001 102 




240$ 


1219* 


1308 


1330* 


1335 




STTYIN 


01 1230 




2384 


2385 


2402 


2406$ 






STYPBN 8 


****** 


y 


2525 












STYPDS* 




U 


2525 












STYPE 






222 1 * 


2513 


2521 








ST YPEC 


a < aula 
















STYPEX 


10516 




2267 


2269 


2272$ 








STYPOC 


011 320 






2522 










STYPQN 






2442 


2445# 


2524 








STYPOS 


011274 




2438$ 


2523 










SXTSTR 


004772 




1319# 












SSGET4 a 


000001 




1232# 


1290# 










S0FILL 


011517 




2439* 


2443* 


2453 


2488* 






S40CAT» 


****** 


U 


1316 


1363 










« a 


015470 




218# 


222$ 


237# 


281 


553 


565 








2274 


2277 


2406$ 


2407 


2415 


2550 



65 
1316 
1370 



2363 

1487* 



66 
1328 
1376 



278 
1330 
1377# 



565 
1332 
2572 



566 
1336# 



1315 



1212 
1342 



1350 



1220 
1343 



600$ 
2574 



1300 
2775# 



1303 
2779S 



1336 
2780 



137? 



1979S 
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MACRO NAMES 



BGOTO 

CALL 

COMMEN 

DECBLK 

DECFIL 

ENOCOM 

EOPCOO 

ERROR 

ESCAPE 

GETPRI 

GETSWR 

INCBLK 

INCFIL 

JGOTO 

MORETA 

MULT 

NEWTST 

OUTDBL 

OUTSGL 

POP 

PUSH 

REMARK 

REPORT 

SCOPfc 

SETBLK 

SETFIL 

SETPRI 

SETTRA 

SETUP 

SKIP 

SLASH 



SPACE 
STARS 



SNRSU 
TRMTRP 

TYPBIN 
TYPOEC 
TYPNAM 
TYPNUM 
TYPOCS 
TYPOCT 
TYPTXT 
SSCMRE 
SSCMTM 
SSESCA 
3SNEWT 
SSSET 



216# 


1509 








216# 


853 


863 


877 


888 


185# 










216# 


1539 








216# 


1528 








185# 










216# 


1232 








79* 


645 


708 


913 


920 


185# 










185# 










185# 


589# 








216# 


943 


1069 


1168 




216# 


948 


1075 


1173 




216# 


789 








216$ 


282 








185# 










185# 










216# 


1251 


1256 






216# 


1241 


1246 


1261 


1273 


185# 


1628 


1812 


1888 


1903 


185# 


1611 


1792 


1876 


2033 


216# 


850 


860 


872 


885 


1044 


1056 


1066 


1081 


1128 


185# 










80# 


907 


1055 


1164 


1200 


216# 


844 


951 


994 


1078 


21&# 


847 


997 


1125 




185# 










2513# 


2522 


2523 


2524 


2526 


185# 


548 








185# 










185# 


318 


339 


361 


4J5 


885 


887 


896 


898 


908 


1010 


1012 


1015 


1017 


1026 


1083 


1092 


1128 


1130 


1138 


1409 


1429 


1463 


1472 


1479 


185# 










12 


185# 


229 


233 


281 


676 


717 


727 


755 


773 


1305 


1338 


1577 


1567 


1590 


1920 


1982 


2000 


2023 


2059 


2536 


2552 


2579 


2616 




185# 


566# 








2513# 










185# 










185# 










185# 


582 








185# 










185# 










185* 


1419 


1431 


1467 


2149 


185# 










2 3 1 # 


270 


271 


272 


273 


231# 


274 


275 


276 


277 


185# 










185# 










2513# 


2522 


2523 


2524 


2526 



2054 
2540 
896 
1138 

1218 

1122 



527 
910 
102S 
1140 



441 
801 
1634 
2076 



1005 1019 1050 1084 



1520 1523 1550 1553 



2559 
2546 
906 
115(0 

1252 
1176 



715 
915 
1057 
1150 



465 
810 
1655 
2112 



9! 5 
1165 



799 
917 
1039 
1152 



511 
836 
1692 
2172 



1365 



926 
1233 



803 
926 
1044 
1165 



529 
962 
1741 

2206 



1037 



850 852 

928 940 

1046 1056 

1167 1180 



555 602 

988 1099 

1758 1772 

2276 2279 



860 862 872 874 

942 955 1000 S002 

1058 1066 1068 1081 

1233 1235 1278 1280 



611 619 635 654 

1115 11SS 1199 1209 

1776 1821 1871 19l7 

2347 2376 4415 2492 



TAll DATA RELIABILITY MA INDEL- 1 1 -DZTAE-C MAC V 1 1 17-MAH-77 14:55 PAGt 75 

DZTAfcC.PH 17-MAR-77 14552 CROSS REFERENCt TABLE — MACHO NAMES 



SSSKIP 
.EOUAT 

»H£ADE 

, SETUP 

,SWRHI 

,SWRLO 

,SCATC 

, SCM T A 

,$0B2D 

,SEQP 

,$ER*0 

,5POWF 

.SRQUC 

» SREAD 

.SSAVE 

,$SB2D 

, SSCUP 

,SSPAC 

,SSUPR 

e STRAp 

S $TYPE 

,$TYPO 



185# 



2# 
2tf 
2# 
fc7f 
2# 
2# 
2$ 
2# 
2# 
2# 
2# 
2# 
2# 
2*f 
2# 
2# 
2# 
2$ 
23 
2# 



1998 
2490 
2204 
2413 



216 
231 
19}8 
1207 
1336 
2534 
2021 
2274 
1774 
1983 
1303 



537 
57 



75 



ABS, 015470 



ERRORS DETECTED! 

DEFAULT GLOB ALS GENERATED! 

DSKZ:DZTAEC.BlN»0SKZ:UZTAEC.iaT/CRF/SUL"D3KM:UZTAEC.Pll 
RUN-TIME: 15 8 .9 SECONDS 
RUN-TIME RATIO: 108/2b>4.3 
CORE USED: 25K (50 PAGES) 



